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ABSTRACT 


CP/.m-PS  is  a  microcomputer  (INTEL  8036)  operating  system 
developed  and  marketed  by  Digital  Researcn.  Tne  operating 
system  is  designed  so  taat  a  user  can  adapt  tne  system  to 
Ms  own  input/output  hardware  devices.  This  tresis  develops 
interfaces  to  two  floppy  disx  controllers,  tne  iSSC  2V1 
(single  density)  and  tne  iSBC  2*2  (double  density' 
controllers.  Tne  interface  includes  tne  writing  of  a  boot 
loader  embedded  in  tne  iSBC  9b?  Execution  Vehicle  Monitor, 
the  monitor  system  for  the  INTEL  iSBC  S6/12  single  board 
computer.  Also  included  is  an  interface  module  for  tne  cold 
start  loader  (loader  3I0S)  and  an  input  and  output 
Interface,  BIOS.  A  design  for  tne  interface  module  of 
typical  systems  based  on  Winchester  technology  hard  disics  is 
also  presented. 
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I.  INTRODUCTION 


A.  PURPOli E  OF  THIS  THESIS 

Tne  adaptation  of  CP/M-H6  to  tne  Hardware  descrioea 
nerein  was  undertaken  to  provide  an  operating  systen  for 
processor  based  single  board  computers  at  tne  Naval 
Postgraduate  Sctiooi.  Tnis  operating  system  will  support 
software  development  and  system  emulation  for  tne  AEGIS 
modeling  project.  Tne  software  will  oe  available  for  general 
use  at  NPS.  In  addition  tne  experience  of  modifying  an 
operating  system  provided  tne  autnor  witn  an  opportunity  to 
learn  about  microcomputer  Hardware  ana  microcomnuter 
operating  systems. 

3.  HISTORY  OF  MICROCOMPUTER  OPERATING  SYSTEMS 

Tnis  Is  a  brief  overview  of  tne  nlstory  of  microcomputer 
operating  systems  summarized  from  Ref.  1.  It  is  necessarily 
brief  as  tne  advent  of  microcomputer  operating  systems  is 
itself  ratder  recent.  Microcomputers  came  of  age  witn  tne 
construction  of  tne  entire  central  processor  on  one  cnip, 
tne  replacement  of  core  memory  witn  inexpensive  mass 
produced  semiconductor  memory,  tne  availability  of  tne 
floppy  disk  and  tne  standardization  of  dissett®  format.  At 
first,  tne  primary  applications  of  microcomputers  were  in 
real-time  control  systems  sucft  as  macnine  controlled  tools. 
In  sucn  applications,  process  management  is  tne  main  tnrust 


and  system  I/O  Is  negiigiDle.  Tnis  required  a  simple, 
-'ustomized  operating  system.  Tne  first  rni"rc''o^put°r 
operating  systems,  more  properly  caned  executive  systems, 
were  for  real  time  applications.  As  microcomputer  systems 
cecame  less  expensive,  it  Decane  possible  to  devote  a  system 
to  a  single  user  as  a  program  development  tool.  Tr.is  use 
presented  tne  need  for  nigr.er  level  language  support,  wnicr. 
meant  that  an  operating  system  had  to  interface  one  or  more 
orosram-ni ng  ianguage(s)  to  tne  nardware.  Several 
^icrocompute  r  manufacturers  nave  produced  their  own 
operating  systems.  Tnese  operating  systems  are  specifically 
designed  for  a  "computer  system”  and  are  generally  not  user 
con  f  igura  Die  . 

Uni  lie  tne  large,  powerful  operating  systems  found  ir. 
mainframe  and  large  minicomputer  timesharing  systems, 
microcomputer  operating  systems  are  relatively  austere  ar.i 
simple.  One  of  tne  primary  reasons  for  tnis  difference  is 
that  a  microcomputer  is  usually  a  single  user  system  (with 
some  exceptions).  As  a  result,  tne  operating:  system  does  not 
need  to  provide  features  sucn  as  memory  protection,  process 
scheduling  and  time  sharing  of  the  CPU(s).  .besides  the 
simpler  Interface  required  of  a  microcomputer  operating 
system,  the  operating  system  and  tne  applications  programs 
must  function  in  a  snail  amount  of  primary  storage, 
typically  Detween  lbK  and  b4K,  as  compared  to  several 
megacytes  in  tne  large  mainframes.  Even  tnougn  relatively 


small  and  simple,  a  microcomputer  operating  system  must 
still  provide  file  management,  process  management  and  I/O 
managemen  t . 

Two  representative  microcomputer  operating  systems  are 
Intel's  ISIS-II  and  Digital  Researcn's  CP/^-SkJ.  To  operate 
under  ISIS,  tne  user  requires  a  minimum  of  62%  of  primary 
storage.  Tne  CP/y  user  requires  a  minimum  of  i6iC.  Botn 
nrovide  tne  basic  functions  required  of  an  operating  system. 
ISIS,  nowever,  will  only  run  on  an  INTEL  computer  system 


configuration 

and 

is 

no  t 

user  modifyaoi 

e.  CP/M-80  is 

designed  to  run 

on 

any 

8080 

or  Z— 80  based 

mi crocomputer 

system  after 

tne 

user 

nas 

modified  tne 

program  module 

containing  tne 

nardware 

dependencies.  Tnis 

factor  alone 

mates  CP/*!  poouiar  and  nas  resulted  in  tne  production  of 
many  CP/i*  compatible  utility  and  application  programs  cy 
otner  companies.  ISIS  nas  some  features  beyond  tnose  of  C P / v 
in  tne  area  of  development  software  for  INTEL  naroware. 
CP/'I's  dynamic  debugger  (DDT),  nowever,  is  more  powerful  and 
easier  to  use  tnan  INTEL'S  ICE  system.  Botn  ISIS  and  CP'Y 
support  essentially  tne  same  file  coerations.  Currently, 
because  of  its  flexibility,  C?/y  is  tne  most  widely  used 
microcomputer  operating  system. 

multi-user  systems  sucn  as  vp/m  ana  microcomputer 
networK  systems  sucn  as  CP/NET  (ootr.  produced  oy  Digital 
Researcn),  are  now  available. 
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C.  CAPTATION  TO  THE  USER'S  ENVIRONMENT 

Digital  Research  nas  atterptel  to  maice  treir  CP/M 
operating  systems  as  flexible,  in  terms  of  naraware  suite, 
as  possible.  TP?  method  used  is  modular  programming.  Tr.e 
user  interface,  tne  Console  Commune:  Processor  (CCP)  nas  no 
hardware  dependencies  o  trier  tr.an  tne  Cr'J.  In?  file 
management  system,  tne  Basic  Disk  Operating  System  < BUGS', 
is  also  independent  of  hardware.  Sotn  tne  CCP  and  tre  EPOS 
are  interfaces,  to  tne  Basic  Input/Output  System  (BIOS) 
through  logical  I/O  devices  and  logical  lisK  devices.  Tne 
BIOS,  men,  contains  tne  logical  device  to  p.oysicai  device 
translation  routines.  Adaptation  of  tne  operating  system  to 
a  unique  environment  requires  only  tne  modification  of  tne 
appropriate  EIOS  routines,  greatly  simplifying  tne 
alteration  process. 

On^e  one  nas  successfully  completed  one  adaptation, 
foilow-on  adaptations  will  oe  muen  easier  to  ac.meve  as  an 
understanding  of  t.ne  operating  system  and  its  interface 
procedures  Is  developed  aion*  with  a  Detter  understanding  of 
microcomputer  arcnitecture  in  general. 

E.  ORGANIZATION  OF  THIS  THESIS 

Tnis  tnesis  is  organized  as  a  blueprint  for  alteration 
of  tne  CP/M-H5  operating  system  to  any  specific  hardware 
configuration.  Tnis  metnoioiogy  win  also  serve,  at  least  m 
general,  for  tne  alteration  of  any  operating 


orief 


sys tem-to-na rdware  interface.  Cnapter  l  is  a 
introduction  to  microcomput er  operating  systems  in  general 
and.  tne  nodi  fi  cat  ion  of  tne  CP/M-be  operating  system  m 
oarticuiar.  Cnapter  i  reflects  tne  investigation  of  tne 
candidate  operating  system  in  order  to  understand  now  to 
adapt  it  to  tne  existing  nardware.  Cnapter  6  is  a  summary  of 
tne  study  of  tne  typical  floppy  distc  or  Wincnester 
tecnnology  iiss  ana  a  ioof  at  possirue  nardware  '-anaidates . 
Cnapter  4  covers  tne  adaptation  of  tne  I/O  interface  module 
(DIOS )  and  tne  bootstrap  program  for  tnese  versions  of  tne 
operating  system.  Cnapter  5  discusses  some  of  tne 
difficulties  encountered  and  a  plan  for  adapting  CP/'l-sb  to 
a  nara  dlsi.  Tne  appendices  contain  tne  programs  developed 
as  part  of  tnesis  and  one  or  tne  programs  wnicn  was  used  as 
a  model. 
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II.  STRUCTURE  OF  CP/M-=b 


A.  0  VVOTT  I 

CP/*-Bb  is  a  microcomputer  operating  system  dor  I*,'TZi 
CORPORATION'S  3/36  processor  cased  'Microcomputers.  It  is  tee 
logical  successor  to  CP/Y-32,  a  similar  operating  system 
developed  and  marieted  cy  Digital  P.esearcn  dor  tne  1NTFL 
d/b/  processor.  File  oompaticiii  ty  nas  seen  preserved  *itn 
an  previous  versions  of  CP/'l.  C?/!*  provides  a  general 
environment  dor  program  construction ,  storage,  editing, 
execution  and  aeeugging.  Tne  file  structure  od  version  od 
CF/'l-SS  is  usel,  allowing  as  many  as  sixteen  drives  witn  up 
to  eignt  meeatytes  on  eacn  drive. 

CP/^-Sb  offers  cuilt-in  utility  commands,  system 
transient  commands  and  tne  capaciiity  of  executing  user 
defined  transient  commands  (programs).  Among  tne  system 
transient  programs  are  an  Intel  compaticie  assemoier  'ASvb6 ) 
and  a  dynamic  ma mine  language  program  aecugger  (DDT).  T.dey 
are  descrlDed  in  detail  in  Digital  Researcn's  puciicatior.s 
[Ref.  'd]  and  l?.ef.  respectively. 

A  powerful  feature  of  CP/M  is  its  modularity.  One  of  tne 
taree  modules  of  tne  operating  system,  tne  Basic  I/O  System 
OIOS),  defines  tne  nardware  environment  for  tne  system.  As 
a  result  or  tnis  modularity,  CP/'l-bb  can  De  modified  to  run 
on  any  8/bb/3/b3  processor  cased,  single  processor  computer 
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system  by  merely  Changing  tne  BIOS.  A  more  detailed 
description  of  CP/M  am  its  features  is  contained  in  Digital 
Research's  publications  [Ref.  4],  [Ref.  5J  and  IRer.  sj  . 


3.  ORGANIZATION  OP  CP/V-9S 

The  sources  of  CP/M-eb  information  for  tnis  paper  are 
[Ref.  4J  ,  [P.ef.  5J  and  [Ref.  Sj  .  Tnis  cnapter  freeiv 
summarizes  tne  relevant  material  to  tnis  tnesis. 

Tne  operating  system  is  contained  in  file  "CPM.SYS”. 
"CPM.SfS"  contains  tnree  program  modules:  tne  Console 
Command  Processor  (COP),  tne  Basic  Disi  Operating  System 
(EDOS),  and  tne  user-coni' imura  bie  Basic  Input/Output  System 
(BIOS).  Tnis  modularity  allows  tne  CCP  and  EDOS  to  ce 
independent  of  tne  hardware  in  wnicn  the  system  is 
implemented. 

The  CCP  is  tne  system's  interface  to  tae  user's  console. 
It  translates  tne  user's  commands  into  CP/M  system  cans  in 
order  to  carry  out  tne  desired  action.  Tne  EDOS  module 
provides  ail  tne  disi  and  file  management.  Tne  BIOS  contains 
all  tae  hardware  dependent  features  and  interfaces.  Tne 
operating  system  executes  in  any  portion  of  memory  above  tne 
interrupt  locations,  waile  tne  remainder  of  tne  address 
space  is  partitioned  into  as  many  as  signt  non-con tiguous 
regions,  as  defined  in  a  table  in  tne  BIOS. 

CP/M-96  is  too  large  a  program  to  fit  in  tne  first  two 
(system)  traces  of  a  diskette.  As  a  result  tne  boot  loader 
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loads  Into  memory  a  cold  start  loader,  called  "LOADER . CMD”  . 
from  tee  first  two  tracis.  Toe  boot  loader  maxes  tee 
appropriate  initializations  ana  tnen  transfers  program 
control  to  tne  cold  start  loader.  Tne  cold  start  loader, 
wnicn  is  essentially  a  sunset  of  "CPM.SYS",  finds  "CPM.SYS” 
on  tne  system  disx,  loads  it  into  memory,  maxes  tne  proper 
initializations,  and  finally  transfers  control  to  tne 
operating  system. 

C.  CCP  RUILT-IN  *  TRANSIENT  COMPANDS 

Tne  operation  of  CP/M-86  is  similar  to  tnat  of  CP/M-yx. 
Upon  cold  start  tne  operating  systen  signs  on  and  drive  A  is 
logged-in,  CP/M-S6  tnen  waits  for  an  input  command  line. 
Tnere  are  five  nuilt  in  commands: 

DIP  -  displays  tne  directory  of  tne  designated  drive 

E3A  -  erases  tne  specified  directory  entry  on  tne 
designated  drive 

REN  -  renames  tne  designated  file 

TYPE  -  tyoes  tne  designated  file  to  tne  logical  console 
le vi ce 

USER  -  cnanges  user  directories  in  muiti-lirec tory 
systems 

Also  tne  command  line  nav  cegln  witn  tne  name  of  a 
transient  program  witn  tne  assumed  file  type  of  CMC.  CMD 
stands  for  "command  file”  and  is  used  to  differentiate 
CP/M-£b  transient  command  flies  from  COM  files  uncer  CP/M-HO 


1? 


wmcn  «erve  tne  same  purpose.  Transient  programs  are  ioaoea 
lr.to  •no'Dory  in  tne  Transient  Program  Area(s)  (TPA),  as 
defined  in  tne  JEIOS,  in  s  t  a  c  .<  orie~. 

CF/M-Bb  supports  programs  written  in  tnree  memory 
models:  tne  Bfc‘90  model,  tne  Small  model  and  tne  Compact 
model. 

Tne  8090  model  supports  programs  wnicn  are  lirectly 
translated  from  CP/^-BK  wnen  code  and  data  areas  are 
intermixed.  Tne  model  consists  only  of  a  code  group  wnicn, 
ir.  turn,  is  normally  a  single  segment  of  b4£  or  less.  Tne 
operating  system  and  tne  "■old  start  loader  are  written  in 
tne  B090  moiei. 

Tne  Small  model  supports  programs  wnere  mere  is  a 
separate  "oie  and  data  group.  Normally  tne  Small  model 
programs  are  b4.K  or  less. 

Tne  Compact  model  occurs  wnen  any  of  tne  extra,  stactc  or 
auxiliary  groups  are  present  in  tne  program.  Sacn  group  may 
consist  of  one  or  more  segments. 

Tne  tnree  models  differ  primarily  in  tne  manner  in  wmcn 
tne  segment  registers  are  initialized  upon  transient  program 
loading.  Tne  operating  system's  program  loan  function 
determines  tne  memory  monel  used  Dy  tne  transient  orcgram  cy 
examining  tne  program  group  used.  All  tnree  models  are 
discussed  ir.  more  detail  in  tne  next  section. 
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1 .  Transient  rroprr  Ftecutior.  /oi5l  ^ 

Tr.e  initial  -'a lues  or  tne  segment  registers  are 
determined  cy  tne  ""emory  monel"  of  tne  transient  program 
and  are  descrltea  in  tne  CV,D  flis  reader  generated  :y  tne 
program  “SSNC^D.CMD"  cr  "GEMCVD  .C3r" .  Tne  tnree  monels  are 
depicted  in  Figure  1. 


!  9090  yodel  ! 

Code  ana  C  a  t  a  Groups  Overlap  ’ 

!  Small  yodel  ! 

Independent  Code  S  Data  Groups  ! 

!  Compact  Moaei 

!  Tnree  or  More  Independent  Groups  ! 

Figure  1  Transient  Program  memory  voneis. 
a.  The  8KBU  yodel 

Tne  90yi;  Yodel  is  assumed  wns a  tne  transient 
program  contains  only  a  code  group  (containing  noth  roue  and 
data).  In  suen  oases,  tne  CS ,  DS  and  ES  registers  are  an 
initialized  to  tne  Beginning  of  tne  cote  group,  wr.il e  to*3  SS 
and  S?  registers  remain  set  to  a  9e-cyte  stacic  area  in  tne 
CCF.  The  Instruction  Pointer  (IP)  is  set  to  10?H,  similar  to 
CP/y-90.  Tne  intermixed  coae  and  data  regions  are 
indistinguisnaois .  Tnls  modex  allows  simple  translation  of 
eZetf,  and  Zfe0  coae  into  tne  rtte  and  bebb  environment. 
Following  program  load,  tne  fet'-IG  vcdei  appears  as  m  Figure 
d,  wnere  low  addresses  are  snowr.  at  tne  top  of  tne  diagram. 
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S5  *  5 P  : 

CS,  DS,  ES :  - 
CS  +  LmE  ! 


fca  «e 
page 


:s  +  2122H:  !  if  =  u'm'f  ! 

!  cofle  ! 


data 


i 


cede 

data 


Figure  2  Tie  Merory  Model. 


p.  Tne  Snail  yoaei 

Tne  Snail  Moiei  is  assured  wnen  tr.e  transient 
program  uses  cotn  a  coae  ana  data  group.  {In  A S.y-!6,  an  cone 
is  peneratel  following  a  CS2G  directive,  *riie  lata  is 
defined  following  a  DSEG  directive.)  In  tms  case  7S  is  set 
to  tne  fee Pi  anil*  of  tne  cole  pro  up,  tea  CS  and  ES  re^iste^s 
are  set  to  tne  start  of  tne  lata  group,  ana  tne  SS  ana  r? 


registers  rerain  i 
Figure  3. 


tie  CCP's  area  as  s.no»n  erapni "a i ly 


I 

» 


cc? 


I 


I 


5  3  : 


Stac-c 


55 


5P: 


05  ,  £5: 


DS  +  Hiai£E : 


ip  =  eree-E 

coae 


base 

page 


data 


Figure  3  Tne  STaii  Memory  Yodel. 


c.  Tne  Compact  Monei 

Tne  Compact  Model  is  assumed  wnen  separate  code 
and  -lata  groups  are  present,  along  *itn  one  or  more  of  tne 
remaining  groups.  In  t.nis  case,  tne  CS  ,  DS  and  SS  registers 
are  initialized  to  tne  base  address  of  tneir  respective 
areas.  Tie  S5  am  5F  registers  remain  in  tne  C CP  area.  If 
tne  user  intends  to  use  tne  stacic  group  as  a  stacc  area,  tne 
transient  program  must  set  tne  55  and  SP  registers  upon 
entry.  Tne  initial  configuration  of  tne  segment  registers  in 
tnis  model  is  snown  in  Figure  4. 
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Figure  4  Tne  Compact  Memory  Model. 


The  values  of  tne  various  segment  registers  ran 
oe  pro^ranna ti cal iy  cnanged  ciurin*  execution  oy  cnanging  tne 
values  in  tne  tase  paee  as  descrited  in  tne  preliminary 
documentation,  tnus  allowing  access  to  tne  entire  memory 


SDace. 


2.  Transient  Program  Setuu  And  Termination 


Similar  to  CP/M-S0,  tne  CCP  parses  up  to  two  file 
names  foliowin?  tne  command  and  places  the  properly 
formatted  File  Control  Siocics  (FCB's)  at  locations  0005CH 


and  006CH  in  tne  oase  pase  relative  to  tne  DS  register. 
Under  CP/M-Btf,  tne  default  DMA  (direct  memory  access) 
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address  is  initialize!  to  in  tae  case  page.  Due  to  tne 
segmented  memory  or  tne  btfb6  ana  bebb  processors,  tne  DMA 
adaress  is  diviaei  into  two  parts:  tne  DMA  segment  acaress 
and  tne  DMA  offset.  Also,  under  CP/M--6,  tne  default  DVA 
case  is  set  to  tne  value  of  DS,  ana  tne  default  DVA  offset 
is  initialized  to  Kfc'Bfe'F.  Tnus,  C?/w-be  ana  CP/M-bS  operate 
in  tne  sane  way  in  tnat  tney  ootn  assume  tae  aer'auit  DVA 
address  is  tne  second  naif  of  tne  case  page. 

Tne  CCP  transfers  control  to  tne  transient  pregram 
tnrougn  an  3036  "Far  Call."  In  aii  but  one  case  of  tne 
Compact  Model,  tne  transient  program  may  cnoose  to  use  tne 
96-byte  CCP  stacs,  ana  optionally  return  directly  to  tne  CCP 
upon  program  termination  by  executing-  a  "Far  Return." 
Programmatic  termination  also  occurs  wnen  3D0S  function  zero 
is  executed.  The  operator  may  terminate  program  execution  by 
tvping  a  single  CONTROL-C  during  line  edited  input.  Tnis  nas 
tne  same  effect  as  programmatic  execution  of  EDOS  function 
zero.  Contrary  to  tne  operation  of  CP/M-30,  no  dis/t  reset 
occurs  and  tne  CCP  and  BDOS  modules  are  not  reloaded  from 
tne  disfc  upon  program  termination.  In  snort,  for  tne  user 
familiar  witn  CP/M -60,  tne  CP/M-85  environment  is  very 
similar,  cut  more  powerful. 

D.  EDOS  SUMMARY 

Entry  into  tne  EDOS  is  made  tnrougn  tne  b£bg  software 
interrupt  *  224.  Tne  EDOS  is,  essentially,  a  set  of  59 
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functions  of  tnree  oaslc  types?  simple  functions,  fixe 
operations  and  external  operations.  Tne  interface  convention 
for  BDOS  calls  requires  tnat  function  cole  oe  passec  in 
register  CL  wit n  parameters  passed  in  reel  star  El  cr  EX 
depending  on  wnetner  it  is  a  cyte  or  word  value.  Byte  values 
are  return el  in  tne  AL  register  ana  word  values  in  registers 
\X  and  BX.  Taole  1  oelow,  fror  Reference  5,  summarizes  tnese 
conventions.  A  full  description  of  eacn  BDOS  function  is 
given  in  [P.ef  .6 ]  . 


!  BDOS  Entry  Registers  !  !  BDOS  Return  Registers  ! 


!  CX  Function  Code  ! 
!  DL  Byte  parameter  ! 
!  CX  Aford  Parameter  ! 
!  CS  Data  Segment  f 

;  i 


!  AL  Byte  Value  ' 
!  AX  Kora  Value  ! 
!  £X  Word  Value  ! 
?  kX  Double  Vorl  Offset  ' 
!  ii’S  Segment  Aiaress  ! 


Tacle  1  BDOS  Parameter  Conventions. 


E.  BIOS  SUMMARY 

Tne  BIOS  is  loaded  into  memory  just  acove  tne  CCP  ar.d 
BDOS  modules  as  illustrated  in  Figure  5. 

Since  tne  BIOS  ray  te  configured  oy  tne  user,  it  ray 
vary  sonewnat  in  iengtn.  Individual  routines  witnin  tne  BIOS 
•nav  oe  at  different  memory  locations.  In  oraer  to 
standardize  tne  interface  to  tne  BIOS,  all  accesses  to  tne 
BIOS  are  made  tnrougn  tne  jump  vector  at  tne  cerir.ning  of 
tnat  module.  Tne  BIOS,  lixe  tne  BDCS,  also  uas  parameter 
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Figure  5  vemory  Location  of  tne  PICS. 

oassine  conventions.  Parameters  for  routines  ir.  tne  S 1 0 S  are 
passed  in  tne  Cl  register  ana  tne  EX  register  *nen  requirei. 
Byte  values  are  returned  in  tne  51  register  ana  word  values 
in  5X. 

Tnere  are  tnree  major  types  of  routines  m  tne  BIOS: 
system  initialization/reinitialization,  simple  oraranter  I/O 
and  disic  I/O.  Ail  simple  cnaraoter  I/O  operations  are 
assured  to  be  in  ASCII,  bot.n  upper  and  lower  case,  «itn  tre 
nign  orner  (parity)  bit  set  to  zero.  CP/!*  sees  sxi 
peripneral  devices  as  "logical”  levices.  Translation  from 
logical  device  selection  to  pnysicai  aevice  assignment  is 
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arcoTulisned  ir.  me  PICS,  tnus  isolatin'?  me  CCF  an".  3 CCS 
f  ron  nardware  dependencies.  BIUS  routine  entry  is  explained 
in  Digital  Researcn's  Duplication  [Ref.  bj  .  Tne  3ICS  also 
contains  me  Disk  Parameter  Tacies  wn  ion  contain  tne 
descri pti on  of  tne  disK  drive  and  provide  a  soram.opai  area 
for  certain  3DOS  operations. 
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Ill  .  INPUT/OUTPUT  DEVICES 

In  CF/'l-SS  the  CCP  and  BDOS  accomplish.  ail  I/O  via  four 
logical  devices,  Tne  BIOS  assigns  vnatever  pr.ysicai 
devices  are  in  tnat  particular  system  to  t  nose  logical 
devices.  Taxs  napping  in  tne  BIOS  preserves  tr.e  independence 
of  tne  CCP  and  BEOS  frotr  tne  nardware  conf  i?ura  ticn. 

A.  LOGICAL  I/O  DEVICES 

CP/M-ab  adlresses  four  logical  I/O  devices:  tr.e  console. 

lpe  dev ice  *  ^ne  Puacn  device  aQd  tne  reacer.  Tne 

console  is  the  principal  interactive  peripneral  trrousrn 
wmcn  tne  operating  svstem  communicates  with  tne  operator. 
Tr.e  list  device  is  tne  principal  listing"  levice,  usually  a 
nardcopy  printer.  Tne  puncn  aevice  is  tne  principal  tape 
puncnine  device,  usually  a  ni?n-speel  paper  tape  puncn  or 
teletype.  Tne  reader  is  tne  principal  tape  reading  device. 
.V.ren  tne  "IOBYT.8"  function  is  implemented,  dyr.ani"  logical 
to  pnysical  device  mapping  nay  oe  accompiisnea  as  assented 
in  Ref.  b. 

k .  PHYSICAL  I/O  DEVICES 

The  CONIN,  COnO'JT  ,  LISTOUT,  PUNCH  and  READER  routines  in 
the  BIOS  define  the  pnysic-ai  interfaces  with  peripr.erals. 
Tne  system  adapter  may  define,  in  tne  BIOS,  suer  aevices  as 
tape  recorders  etc.  so  lone  as  it  is  interfaced 
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cassette 


*■  i  t  n  one  of  tne  logical  devices.  In  tms  adaptation  tne  list 


device  am  me  console  device  are  ootn  mapped  to  tne  serial 
ea?e  connector  *nere  tne  CRT  console  is  connected.  Tne 
reader  is  "stubbed"  wlt.n  an  "end  of  file"  input,  mat  is, 
instead  of  a  routine  to  interface  a  pnysicax  read  device, 
tne  flIOS  simply  returns  an  indication  mat  me  read  nas  -eer. 
complete.  And  tne  puncn  device  ^ap  is  "stubbed"  «itn  a 
return  statement. 

C.  DISH  DEVICES 

1 .  Hard  Disgs,  Floppy  Disics 

Tnere  are  many  implements  ti  ons  of  tne  nan  disi 
tecnnologies .  Tnere  are  fixed  anc  movable  need  cisgs, 
removable  list  pacics  and  ever,  combination  na  rd  and  floppy 
systems.  Floppy  lisiettes  come  mainly  ir.  tne  5"  and  3"  size, 
single  and  ioubie  density,  sineie  ar.d  double  siied,  and  as 
indicated  above  ir.  combination  vita  nard  ai sus . 

2.  Organization  of  Data 

Altnou?n  eacn  dist  drive  Tay  ce  different,  data  is 
stored  in  conceptually  tne  same  manner.  Tr.e  dis.<  surface  is 
divided  into  tracss  for  cylinders,  if  a  multi-platter 
system.)  Eacn  tractc  is  divided  into  sectors.  Eacn  sector  is 
addressable  cv  tne  controller,  malting  it  tne  basic  unit  cf 
storage.  In  multi-platter  and/or  rulti-neai  systems,  to 
access  tne  disic  tne  controller  must  select  tne  proper 
nead/piatter  as  well  as  me  tracft  and  sector  required. 
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Tne  amount  or  lata  tnat  ran  oe  stored  on  a  device  is 
dependent  on  tne  size  of  tne  device  ana  tne  recc~cirg 
format.  Dou  Die  aer.sitv,  as  me  name  it  sixes ,  gives  tv  i  ~e  as 
muon  storage  on  a  diskette  as  single  density.  Tne  cost, 
now ever,  Is  treater. 

Altnouen  tne  tasic  unit  of  storage  is  tne  sector, 
sectors  are  not  tne  same  size  in  every  syste~.  In  general, 
tne  larger  tne  sector,  tne  more  efficient  tne  storage,  cut 
tne  less  efficient  tne  access,  ‘"lany  systems  allow  me  user 
to  select  tne  sector  size  from  a  limited  set  of  cnoices. 
Sectors  are  normally  a  multiple  of  I2S  nytes. 

3.  Interfaces  to  tne  Computer 

Tne  sey  to  tne  storage  of  information  on  tne 
recording  media,  at  least  from  tne  operating  system 
modifier's  point  of  view,  is  tne  disic  drive  ccr.trciler.  Tne 
controller  itself  is  usually  a  mi  -preprogrammed 
microprocess  or.  Tde  controller  .nancies  tne  actual  reanirg 
from  and  writing  to  tne  lisi  in  addition  to  ot.ner  lunations 
suen  as  seetc ,  f orma t  etc.  Tne  relative  au tonomy  of  tne 
controller  frees  tne  operating  system  from  caving  to  r.andie 
lisK  I/O  on  a  primitive  level.  However,  tne  3I0S,  *mcn  is 
narlware  specific,  must  still  -'ommunicat3  witr.  tre 
controller  at  a  fairly  low  level. 

*ost  microcomputer  system  I/O  is  done  oy  D^A.  In 
general  tne  nost  operating  system  creates,  somewnere  m 
memory,  an  entity,  often  called  a  "command  pacKet"  or  "I/O 
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parameter  Diocs"  or  sot?  similarly  descriptive  nam^.  T-.e 
"pacKet"  is  usually  seven  to  ten  oytes  or  information  wni'-n 
contain  tne  detailed  command  for  tne  dis<  drive  controller. 
Tnese  "pacicets”  form  tne  sole  means  of  issuing  I/O  commands 
to  tne  controller. 

Normally  tne  lisi  drive  con troiler/i nterra ce  snares 
a  dus  witn  tne  nost  system.  As  a  result  tne  controller's 
command/s ta tus  registers  nave  device  addresses  from  tr.e  bus. 
In  most  systems,  tney  can  ee  set  cv  tne  user  prior  to  system 
start-up. 

Tne  nost  system  sends  tne  address  of  tne  1/3  command 
pacset  to  tne  command  registers  of  tne  controller.  Upon 
receipt  of  tnis  address  tne  controller  initiates  action  to 
gain  control  of  tne  dus.  Wnen  tne  controller  nas  control  cf 
tne  ous  it  reads  tne  appropriate  number  of  bytes  rro^  tne 
address  it  was  given.  Tne  controller  decodes  tnis 
information  and  tnen  carries  out  tne  prescribed  operation. 
Tne  controller  may  signal  completion  in  various  ways,  tne 
most  common  oeing  entering  a  completion  code  in  tne  command 
oacseet  for  tne  nost  to  read,  sending  an  interrupt  to  tne 
nost  processor,  or  storing  tne  status  in  an  on-ooari  status 
register  for  tne  nost  to  read. 

Many  systems  allow  tne  DMA  to  be  ” tnro ttied" ,  tnat 
is,  tne  controller  elves  up  control  of  tne  dus  periodically 
in  order  to  increase  overall  system  speed. 


0  tne  r  features  ccmmoniy  included  in  iistt  a  rive 
controllers  are:  1 i .need  I/O,  tnat  is,  tee  aDility  to  execute 
Tore  tnan  one  I/O  command  pac'.tet  witnout  prompting  fron  tne 
Rost  processor.  Multiple  sector  I/O,  tnat  is,  tne  ability  to 
real  or  write  more  tr.an  one  sector  in  response  to  a  single 
1/0  command  packet. 

4.  Examples  of  Particular  Controllers 
a.  1SEC  201  (Single  Density  mdS) 

Tne  iSBC  231,  as  described  in  Ref.  ?,  is  tne 
controller/interface  for  INTEL'S  INTE1LEC  *DS  dW ,  an  8080 
processor  based  microcomputer  development  system. 

(l)  IS  BC  231  Controller  Operation.  Tne 
controller  is  composed  of  two  circuit  boards,  a  cnannei 
board  and  an  interface  board.  Tney  interface  witn  tne  Rost 
processor  via  tne  system  MULTI3US ,  a  system's  tus  used  by 
INTEL  Corporation.  TRe  cRannel  board  and  interface  board 
toeetner  nandle  an  communications  between  tne  nost  CPU  and 
tne  diskette  system.  TRey  contain  an  8-bit  microprogrammed 
processor  wnicn  can  access  system  memory  for  obtaining 
cnannel  commands  via  DMA.  TRe  controller  also  monitors  tne 
disK  subsystem  status  ana  error  conditions  and  maias  tnei r 
status  available  to  tne  nost  CPU. 

Tnis  diskette  system  records  data  by  tne 
Frequency  Modulation  (FM)  metnoa,  giving  a  formatted  s" 
diskette  capacity  of  approximately  256£  bytes,  divided  into 
77  trades  of  25  sectors  eacn. 
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Functi anally 


tne  nost  CPU  rust 


reate  a 


command  oacset  m  memory  for  eaca  operation.  INTEL  calls 
tnis  pacset  an  I/O  Parameter  Blocs  (I0PB).  An  IOPB  is  ten 
bytes  in  lengtn  and  specifies  ail  tne  details  of  tne 
lissette  operation  to  be  performed.  Tne  CPU,  in  tr.e  case  of 
CP/M-Sb,  tarougn  tne  BIOS  module,  sends  tne  address  of  tie 
I3PB  to  tne  controller.  Tr.en  tne  controller  ?ains  control  or 
tne  bus,  retrieves  tne  I3PB  and  executes  tne  command.  Upcn 
completion  the  controller  posts  tne  diskette  subsystem 
status  and,  if  enabled  by  tne  I0P3,  sends  a  ccmoietion 
interrupt  to  tne  nost  CPU.  Tne  information  in  tne  IOFB 
consists  cf: 

Byte  l  -  tne  cnannel  word,  tnis  byte  specifies  tne 

enabling  of  tne  iocs  override,  random  format 
of  tne  iocs  override,  random  format  sequence, 
interrupt  control,  lata  word  ien*tn,  successor 
bit,  brancn  on  wait  and  wait  bits. 

Byte  2  -  specifies  tne  drive  selected,  data  ier.gta  (p 
or  lb  oits/word)  and  tne  operation  to  be 
performed . 

Byte  3  -  specifies  tne  number  of  sectors  to  se 
t  ransf erred . 

Byte  4  -  specifies  tne  target  tracs  number  (2-77). 

Byte  5  -  specifies  tne  first  sector  to  be  accessed  (1- 
26)  . 
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Byte  6  -  specifies  tne  least  significant  byte  of  tne 
Duffer  address. 

Syte  ?  -  specifies  tne  most  significant  oyte  of  tne 
buffer  airess. 

Syte  a  -  indicates  a  blocs  number  wnicn  allows  a  unique 
identification  of  an  IOPB  during  limed  IOPB 
operations. 

Byte  9  -  contains  tne  least  significant  byte  of  tne 
buffer  address  of  tne  next  linsed  1 0  F  £ . 

Byte  Ik?  -  contains  tne  most  significant  oyte  of  tne 
buffer  address  of  tne  next  limed  IOPB. 

Tne  iSBC  221  can  execute  seven  "ommaras: 

1)  recalibrate  (sees  tram  2) 

2)  sees 

3)  format  a  tr3CK 

4)  write  data  (vitnout  address  mams) 

5)  write  data 
5)  read  data 

7)  verify  CRC 

Tne  controller  nas  seven  registers  tnat  are 
accessible  to  tne  nost  CPU.  Tne  nost  CP'J  can  read  tnree  of 
tne  registers:  Tne  Result  Status  register  indicates  tne 
status  of  botn  drives  (ready  or  not  ready),  tne  status  of 
tne  controller  for  tnat  drive  (present  or  not  present',  and 
tne  status  of  tne  controller's  interrupt  flip-flop 
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(interrupt  pending  or  completed).  Toe  Result  Type  register 
indicates  wnetnsr  tne  Result  Byte  register  contains  I'O 
error  codes  or  ready  status.  Tne  Result  Byte  noids  tne  I/O 
error  codes  or  diskette  drive  status.  Tne  cost  CPU  can  write 
to  four  or  tne  controller's  registers:  Writing  anything  to 
tne  Reset  Dlssette  System  register  resets  tne  entire 
diskette  subsystem,  Writing  to  tne  Stop  Diskette  Operation 
register  terminates  I/O  after  completion  of  tne  current 
operation.  Tne  Memory  Address  Lower  register  receives  tr.e 
least  significant  byte  of  tne  address  of  tne  IOPB.  Tne 
Memory  Address  Upper  register  receives  tne  most  significant 
byte  of  tne  IOPB  address  and  wnen  written  into  signals  tne 
controller  to  retrieve  tne  I0P3  and  commence  tne  specified 
operation . 

(2)  BIOS  Use  of  tne  iSBC  201.  Tne  CP/M-es  EICS 
uses  only  operations  1,  P  and  5  (sees  is  implicit  in  read 
and  write  operations).  In  addition,  CP/M-Sej  doos  net  use 
iinsed  IOPJE's  and  only  does  single  sector  diss  accesses. 
Tnis  very  muen  simplifies  tne  I/O  routines  in  tne  EDOS  ard 
tne  EIOS.  Not  using  tne  iinsed  ICPE  capability  allows 
reducing  tne  IOPBs  to  tne  first  seven  bytes,  of  wnicn  bytes 
1  and  3  remain  constant.  Byte  One  remains  unenangea  because 
tne  mole  of  diss  access  remains  uncnangel.  Eyte  Tnree,  tne 
number  of  sectors,  remains  set  at  one,  and  tne  operating 
system  is  freed  from  computing  tne  number  of  sectors  per 
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access .  Tr.es  a  simplifications  alio*  t  r  e  BIOS  ic  nav“  a 
single  IOPB  ten  pi  ate  in  memory. 

A  limitation  or  tne  iSEC  221  is  its  lb-nit 
addressing.  Tnis  limitation  means  tnat  tne  controller  car. 
ony  address  54!T  of  system  memory  as  comparer  tc  tr.e  b'/bti 
processor's  mesacvte  of  address  space.  As  a  resrit,  tr.e 
external  address  of  tne  iSEC  b.o/12  mast  reside  in  tne  first 
Ii54i  of  tne  megabyte  (from  22222V.  to  fc'FFFFK^.  Tne  SIDS  in 
tnis  adaptation  converts  tne  segment  and  offset  address 
provided  by  tne  EDOS  into  a  16-bit  pnysicai  address  for  tne 
controller. 

(2)  Bootstrap  Use  of  tne  iSBC  221.  Tne  roots  trap 
program  does  use  tne  multi-sector  access  capability  of  tne 
controller  for  loading  tne  cold  start  leader.  Tnis  requires 
four  IOPEs  in  tne  bootstrap  program  but  reduces  tr.e  number 
cf  disic  accesses  from  53  to  four.  Considering  tne 

specialized  function  of  tne  bootstrap  loader  and  its  iac<  of 
interface  witn  tne  3D0S,  tnis  is  a  very  efficient  deviation 
from  tne  otner#ise  efficient  CP/'i  metnoc  of  aisi  access, 
b.  iSEC  222  (Double  Densi ty  MBS) 

Tne  iSEC  222  is  tne  cont ro i ler/m terrace  for 
INTEL'S  INTSLLSC  MDS  S6B  microcomputer  development  system. 
It  is  described  fully  In  Ref.  b. 

(1)  ISBC  222  Controller  Operation.  From  tne 
users  point  or  vie#  tnis  controller  is  essentially  tne  same 
as  tne  ISBC  221.  Tne  main  difference  is  tne  recording 
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format,  ''ciifiei-Modif  iei  frequency  Modulation  is 
used,  allowing  tne  same  "i e ci i a  to  acid  (formatted)  r  12f.  "ytes 
or  lata,  divided  into  ??  traces  or  52  sectors  eacn.  T r. i s  is 
twice  tne  capacity  of  tne  single  density  system. 

(2)  BIUS  Use  or  tne  iSBC  222.  Tne  interface  to 
tne  controller  is  tne  same  as  tnat  of  tne  iSBC  221.  Tne 
difference  i n  organi zat ion  and  capacity  is  only  evident  in 
tne  dis«  definition  taole  "DOUBLE. IIS" . 

(3)  Bootstrap  Use  or  tne  iSsC  222  ♦  CP/m's  double 
density  formatter  formats  tne  first  two  tracts  of  a  diskette 
in  single  density,  ie.  26  sectors  per  tra~ir.  Tne  -old  start 
loader  fits  in  tne  first  two  tracts  of  a  aouDle  density  ir. 
tne  same  way  as  in  sins?ie  density.  A. s  a  result,  tne  same 
bootstrap  program  will  load  me  cold  start  loader  from  ootn 
single  and  double  density  diskettes. 

c.  REM EX  RDV  3200 

Tn?  RDtf  '5222 ,  as  described  dv  Ref.  9,  Ref.  10 
and  Ref.  11,  is  a  multi  drive  unit  consisting  of  a  fired 
Wincnester  Tecnnology  14"  disx  and  two  s"  flexible  diskette 
drives.  Tne  listette  drives  are  "jumper"  selected  as  eitner 
single  or  double  density.  In  Dotn  types  tne  sector  size  is 
selectable.  Tne  formatted  capacity  of  tne  fixed  aist  witn 
sector  size  set  at  12S  bytes  is  10  megabytes.  Tnis  lata  is 
on  212  traces  of  104  sectors  for  eacn  of  two  read/write 
deads.  Tne  single  density  floppy  drives,  formatted  for  ic9 
bytes  per  sector,  noil  26  sectors  on  eacn  of  tractcs  for  a 
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total  of  255K  bytes  of  storage.  Set  for  double  density,  to® 
scaliest  sector  size  available  is  266  oytes.  At  26  sectors 
per  tracs,  for  77  tracscs,  formatted  storage  is  512Z  bytes. 
If  tnis  drive  were  used  for  CP/M-Hb  in  toe  dou Die  density 
mode ,  tne  difference  between  diskette  sector  size  (266 
oytes)  and  CP/M-Bo  sector  size  (12b  bytes'!  would  be  candied 
by  a  "’blocffing/deDlocKing"  aigoritnm  iitce  tne  one  provided 
witn  CP/M-P5. 

(1)  Tne  P.DV  Controller.  Tne  neart  of  tne 
controller  is  a  microprogrammed  Motorola  6bX£  fc-cit 
microprocessor.  Tne  controller  pnysicaiiy  resides  insiae  tne 
R Drf  frame  and  is  linked  to  tne  dost  system  Dy  an  interface 
card.  Tnis  alteration  utilized  a  V’JLTIEUS  interface,  wnicr. 
resided  in  tne  post's  system  MULTIBUS,  Tne  interface 
provides  registers  for  communication  between  tne  nost  ar.o 
tne  controller  CPU's.  Eata  can  be  nanaiei  as  B-bit  words, 
15-blt  words  or  as  B-bit  naif-words.  Tne  controller  can 
accompiisn  I/O  by  EMA,  programmed  I/O  or  by  interrupts.  All 
disic  writes  are  by  v,odlfied-Modified  Frequency  Modulation 
(MMFM).  Tne  disx  drive  system  can  also  dp  EMA  tnrottiea, 
wnicn  permits  otner  masters  to  gain  access  to  tne  system's 
bus  in  between  accesses  by  tne  disK  unit. 

Functionally,  tne  nost  CPU  must  create  a 
command  pacset  in  memory  for  eacn  operation,  ft  command 
packet  is  six  to  fourteen  bytes  in  iengtn  and  specifies  ail 
tne  details  of  tne  lis«  operation  to  be  performed.  In  tre 
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UMA.  mode  tne  lost  CPU  must  test  tie  status  register  in  tie 
controller  interface  to  assure  tnat  tne  controller  is  ready. 
V.nen  tne  controller  is  reaiy  tie  CP'J,  in  tr.e  case  cf 
CP/1-86,  tnrou»n  tfte  PIGS  rolule,  sends  tne  address  of  tne 
command  packet  to  tie  controller  interface.  Tien  tie 
"ontroller  ?ains  control  or  tne  bus,  retrieves  tr.e  ~cmmand 
packet  and  executes  tne  command.  Upon  completion,  tie 
controller  posts  tne  distc  subsystem  status  in  tne  command 
packet  in  system  memory  ana,  if  enabled  by  tne  command 
packet,  sends  a  completion  interrupt  to  tne  nost  CPU.  Tne 
command  pactcet  consists  of  six  to  fourteen  bytes.  Tnis 
controller  supports  five  types  if  operations.  Tr.e  size  cf 
tne  pacset  and  tne  information  it  contains  are  determined  by 
tne  operation  to  oe  performed.  Tne  five  operations  supported 
are : 

1)  real  data/write  data 

2)  write  I.E.  and  data  for  single  record 
(fixed  lisic  only) 

3)  copy  from  one  drive  to  anotner 

4)  format  designated  disrc 

5)  maintenance  package 

Tne  controller  nas  four  registers  tnat  are 
accessible  to  tne  nost  CPU.  Tne  oase  address  of  trese 
registers  is  svitcn  selectable.  Tne  base  address  plus  one  is 
tne  status  register,  from  wnicr.  tne  nost  CPU  determines 
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system  status.  Tne  case  address  plus  tnree  receives  tne 
icwer  oyte  of  tee  address  cf  trie  command  packet.  Tne  rase 
address  oius  two  receives  tne  middle  oyte  of  tne  command 
pactcet  address.  Tne  oase  address  receives  tne  uoper  byte  of 
tne  packet  address  ( R E W  3220  supports  24-bi t  addressing  and 
vnen  written  into  signa Is  tee  controller  to  start  DMA . 

(2)  blOS  Use  of  tne  RDW  3222.  Tne  C?/M-66  i-ICS 
would  use  only  tne  read/write  operation.  Tne  fact  tnst  tne 
nard  dist  nas  more  tnan  one  nead  would  require  tnat  tne  BIOS 
dist  definition  table  loot  liire  one  continuous  set  of  traces 
and  tnat  prior  to  initiating  DMA,  tne  BIOS  translate  a 
logical  tract  numDer  to  a  pnysicai  neau  and  tract  number. 
Tne  read  and  wrice  pactets  nave  tne  same  format  wnicn 
requires  only  one  pactet  template  in  tae  BIOS.  Tnat  pactet 
tates  tne  following  form*  indicated  as  16-bit  words: 

Word  0  -  I/O  modifiers  (Hated  I/O, interrupts, etc.  ! , 
operation  and  drive  selected. 

Word  1  -  status  word  -  written  oy  controller. 

Word  2  -  tract  number. 

Word  3  -  nead  and  sector  start  numoer. 

Word  4  -  lower  16  Dits  of  DVA  address. 

Word  5  -  aign  byte  of  DMA  address. 

Word  6  -  transfer  word  count. 

Altnougn  tne  RDW  supports  24-bit 

addressing,  it  requires  a  24-oit  pnysicai  address,  not  tne 


sequent  am  offset  type  address  provided  ty  tne  BIOS. 
Tnerefore  tne  BIOS  must  translate  tne  addresses  cefore 


placing  tnem  in  tne  command  packet  and  tefore  sending  tnem 
to  tne  interface. 

(3)  Bootstrap  Use  of  tne  P.Dd  3^0.  Tne 
Dootstrao  program  would  use  tne  nuiti-sectcr  access 
capaoility  of  tne  controller  for  loaning  tne  cold  start 
loader  (tie  command  partcet  specifies  tne  number  of  words 
to  be  transferred).  If  tne  operating  system  were  to  be 
loaded  from  a  diskette,  tne  bootstrap  operation  would  ee 
very  mucn  liice  tnat  described  for  tne  iSBC  d til.  For  a 
system  load  from  tne  nari  disf  tne  bootstrap  program  could 
load  tne  operating  system  witnout  tne  use  of  a  cold  start 
loader.  Tnis  would  only  require  two  disK  accesses,  ore  to 
determine  tne  load  location  and  tne  otner  to  actually  load 
"C?M . S YS " . 
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17  .  ALTERATION  OF  CP/M-85 

A.  CHANGES  °EOTJI  RED  TO  IMPLEMENT  CP/M-85 

As  distribute!,  CP/.M-86  is  set  up  for  operation  with  an 
Intel  SSC  85/12  microcomputer  ana  an  Intel  SEC  2/&  iisKette 
controller  with  a  Snueart  S A— *80 fe*  floppy  lisK  drive.  Sir."® 
CP/M-S6  is  modular,  only  tne  BIOS  need  o®  modified  for  "non 
standard"  narlwar®.  Tne  distribution  version  includes  source 
code  for  its  BIOS  and  a  skeletal  3I0S  to  aid  in  tne 
construction  of  a  customized  version.  Although  tne 
distribution  version  does  not  provide  a  bootstrap  ROM,  tne 
source  code  for  tne  program  is  provided.  Tnis  source  cole 
provided  an  example  for  me  creation  of  a  customized 
bootstrap  program.  The  bootstrap  ROM  is  available  from 
Digital  Hesearcn. 

The  changes  required  to  customize  tne  BIOS  "an  be 
divided  into  four  types.  Tne  first  consideration  is  tne 
computer  selected  for  the  implementation.  If  an  SEEej/SfcJfcS 
based  computer  otner  tnan  tne  iSBC  S5/12  were  cnosen,  tne 
computer  initialization.  Including  tne  constant  definitions 
for  USART  ports  and  character  I/O  routines  such  as  consol® 
status,  console  input  and  console  output,  nave  to  be  cnanged 
to  match  the  nost  nardware.  Since  the  iSBC  85/12  was  used, 
no  changes  were  required  in  tnis  portion  of  tne  BIOS. 
Second,  if  the  disjs  drive  controller  or  otner  DMA  device  is 
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not  an  iSBC  204 ,  tae  controller  port  definitions  ar.  1  tne 
routines  wnicn  actually  communicate  witn  tae  controller  must 
be  altered.  Tae  "execute"  am  "sendcom"  routines  were  tr.e 
Dull  of  tae  modification.  Tnese  routines  cnecic  system 
status,  translate  system  commands  tc  tae  language  of  toe 
controller,  deliver  tae  commands  to  tae  hardware  ana  r.anaie 
any  hardware  errors.  Talrd,  if  any  otner  serial  or  parallel 
I/O  device  is  to  oe  used,  tae  appropriate  initialization  and 
execution  routines  must  be  written.  Tae  fourta  consideration 
is  tne  dist  definition  table  wnicn  is  assembled  witr  tne 
BIOS  via  an  "include"  statement.  Disir  parameter  tables  must 
be  created  to  describe  tne  disir  system.  Disir  parameter 
tames  are  discussed  in  tne  next  section.  In  tnis  version 
only  tne  second  and  fourtn  types  of  modifications  were 
necessary  and  tnose  cnanges  are  reflected  in  Appendix  A 
(single  density)  and  Appendix  B  (double  density'.  Appendix  0 
contains  tne  distribution  BIOS.  After  assembling  tne  BIOS, 
tfte  nexadeclmal  code,  "BI0S.HS5”,  is  appended  to  "CFid.KsfS” 
and  a  command  file  is  generated  by  tae  metnod  described  in 
Ref.  6  usin?  tne  &ENCMD  utility.  Tne  file  created  is  aared 
"CPM.STS"  and  is  tne  operating  system. 

B.  DISK  PARAMETER  TABLES 

Tne  disir  parameter  table  serves  to  define  the 
oreanizatlon  of  the  storage  media  for  tne  BEOS  file 
management  functions.  Tae  disir  definition  consists  of  tae 


sequence  of  statements  In  Figure  6  (as  snown  in  Ref.  61.  Tne 
DISKS  statement  defines  tne  number  of  drives  in  tne  syste-r, 
witn  n  being  an  integer  from  1  to  16.  A  series  of  DISKDEF 
statements  follow.  Sacn  statement  defines  tne 
cnaracteristics  of  a  logical  dlst,  Id  tnrougr.  n-1.  DISKDEF 
statements  are  formed  as  defined  in  Ref.  6.  Tne  format  is 
snown  in  Figure  ?. 


DISKS  n 
DISKDEF  Id,... 
DISKDEF  1,... 


DISEDBF  n-1 


ENDEF 

Figure  5  BIOS  Dist  Definition  File. 


DISKDEF  dn ,?sc ,lsc , [stf J , bis ,dts ,dir ,cts  ,  of s , ! 


wnere 


dn  is  tne  logical  dist  number,  0  to  n-1 

fsc  is  tne  first  pr.ysical  sector  numoer  (e  or  11 

isc  is  tne  last  sector  number 

st?  is  tne  optional  stew  factor 

d 1 s  is  tne  data  allocation  bloct  size 

dies  is  tne  dist  size  in  tis  units 

dir  is  tne  number  of  directory  entries 

cts  is  tne  number  of  erected  directory  entries 

ofs  is  tne  tract  offset  to  logical  tract  tt 

[0]  is  an  optional  1.4  compatibility  fia* 

Figure  7  DISKDEF  Statement  Format. 


Tne  dist  tables  may  be  generated  by  nand  or  by  executing 
tne  GENDEF  utility  proeram.  Tne  table  provided  witn  tne 


distribution  version,  called  "S INGLES  .LIB"  ,  was  scenerated 
iron  tne  source  file  "S INGLES .  DE'F"  cy  tne  GENDEF  utility 
running  under  CP/M-80.  T.nis  table  was  correct  for  tne  single 
density  implementation.  It  was  necessary  to  create  a  -ew 
table  for  tne  double  density  syster.  Tnis  file  is  called 
DOUBLE. DEF.  TaDie  veneration  is  described  fully  ir.  Section  6 
of  Ref.  5.  Tne  disic  parameter  tames  are  listed  ir.  tne  BIOS 
rignt  after  tne  "include"  statement  (see  Appendices  A  and 
B). 

C.  COLD  START 

1 .  Tne  Cold  Start  Loader 

Since  CP/!*-86  is  too  iarve  to  fit  in  tne  first  two 
(system)  tracts  of  a  dissette,  it  is  loaded  into  memory  in 
two  st  ps.  First,  a  cold  start  loader  is  loaded  from  tne 
first  two  tracts  into  memory.  Next  tne  loader  loans  tne 
operating  system  and  transfers  control  to  it.  Tne  loaner 
("LOADER. C'iD")  is  a  simplified  version  of  CP/*!-=e  wita 
enou^n  power  to  locate  tne  operating  system  file  "CPM.sys" 
on  tne  current  disic,  maice  tne  proper  initializations,  load 
CP/'d-Sb  into  memory  and  tnen  transfer  orovram  control  to  it. 
Tne  loader  is  created  from  files  LDCPM,  IDBDOS  ana  tne 
loader  version  of  tne  BIOS.  Tne  loader  EIOS  is  venerated 
from  tne  same  source  code  as  tne  3IOS  by  setting  tne 
software  switrn  "LCADER_BICS "  equal  to  true  prior  to 
assem  biy . 
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Tne  loader  program  is  roved  to  tne  first  two  tracxs  of  a 
disxette  by  tne  LECOPY  utility  if  running  on  a  wording 
CP/m-36  system.  If  deveiopement  is  done  on  a  CP /V-B2  system 
this  can  oe  accomplished  witn  tne  DDT  and  SYSGEN  utilities. 
P.ef.  6  errs  in  its  inscription  of  tne  latter  procedure.  Tne 
'•orreot  procedure  is  described  in  the  next  chapter. 

H .  Tne  Bootstrap  ROfd 

In  order  to  get  tne  cold  start  loader  into  memory, 
tnere  must  oe  a  oootstrap  ioaaer  of  some  xind.  Tnis  toot 
loader  must  initialize  tne  programmable  cnips  on  tne  single 
Doarci  computer  and  tne  aisx  drive  controller  wnicr.  will 
access  the  operating  system  disK.  It  then  loads  tne  tirst 
two  tractcs  of  tne  diskette  in  tne  system  disx  drive  into 
memory  and  then  transfers  control  to  tne  program  loaded, 
"LOADER. CMD" .  Tne  bootstrap  program  is  normally  resident  in 
a  read  only  memory  (ROM)  or  electrically  programme  tie  ROM 
(EPROM)  and  Is  tnen  referenced  to  as  tne  coot  F.OM. 

The  distribution  version  of  CP/w-86  also  contains 
tne  listing  for  a  oootstrap  RCM  (R0M.A86).  Tne  boot  ROM 
itself  is  available  from  Digital  Research.  When  installed, 
it  oecomes  part  of  the  8086  add-ess  space.  Upon  system 
reset,  the  processor  begins  execution  at  effective  address 
0FF<J00H ,  wnicn  is  tne  top  paragraph  of  tne  iSBC  86/1.2  EPROM 
space.  The  bootstrap  program  is  Hardware  dependent  which 
necessitated  tne  creation  of  a  customized  initial  loaner  for 
this  implementation. 
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Intel's  SBC  9b>7  Execution  Venicie  Monitor  (EVM) 
occuoies  tne  EPROM  locations  wnen  installed  in  tne  iSRC 
-6/12  and  is  currently  in  use  at  tne  M aval  Pos tsraauate 

Scnool.  In  order  to  retain  tne  use  of  tne  iSBC  95?  as:  to 
simplify  implementation,  tne  customized  bootstrap  program 
nas  feon  embedded  in  a  free  area  of  tne  E’/^'s  EPROMs.  Sin"? 
tne  monitor  initializes  tne  single  board  computer  wnen  it  is 
started,  tne  CP/M-fc6  Bootstrap  tas*  is  simplified.  Tne 
bootstrap  program  listing  is  in  Appendix  C.  It  is  a  modified 
version  of  tne  "debug”  version  of  Digital  Ressarcn's  ROM 
program.  Tne  modified  cootstrap  program  is  located  at 
effective  address  ZFFD4FH.  It  may  be  executed  from  tr.e  27v 
by  executing  tne  command  GFFD4:0  or  its  equivalent. 


7.  CONCLUSIONS  AND  RECQMiMSNDAT  IONS 


A •  ADAPTATION  DIP FICULTV 


Modification 

of 

CP/M-bo  is 

a 

s t raientt’orwa rd  simple 

procedure 

if  o  ne 

is 

familiar 

vi  tn 

CP  'f*  on  a  system  '$ 

software 

1  eve  1 

and 

wi  tn  at 

least 

some  representative 

Hardware. 

If  one 

does 

not  nave  su 

cn  a 

tacfground  (tne  autnor 

ill  not).  tne  tasic  is  not  overvnelmin?,  out  considerably 
more  difficult.  Tne  novice  will  protaciy  invest  mucn  time 

and  effort  in  investiffatin*  "lead  ends"  because  or  not 
understanding  tne  logical  design  of  tne  operating  system.  A 
Darticularly  vexine  problem  encountered  in  tne  first 
adaptation  was  tnat  in  tne  later  stages  of  development, 
every  error  in  tne  corrected  software  seemed  to  destroy  tne 
Information  on  tne  diskette,  mating  decug/ring  difficult  and 
requiring  frequent  reeeneration  of  software.  During  tnis 
period  of  "destructive  testing"  approximately  yet  of  tne 
time  and  effort  were  spent  on  sucn  overnead  and  only  let  on 
actual  debugsing.  Tne  real  problem  tnere  was  not  tne  time 
lost  but  tne  interruption  in  tne  train  of  tnougnt. 

Documentation  inadequacies  are  anotner  source  of 
problems.  Tne  alteration  guide  for  CP/M-tb  provided  ny 
Digital  Researcn  (Ref.  6)  assumed  a  tnorougn  Knowledge  of 
CP/M-80,  wnica  was  not  possessed  Dy  tne  autnor.  Tne  CF/V“80 
documentation  also  seemed  to  assume  a  tnorou*rn  Knowledge  of 
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tne  operating  system's  modules.  Ia  addition,  mere  were 
several  errors  in  tne  alteration  guide. 

Tne  procedure  for  moving  tne  cold  start  loader  to  traces 
zero  ana  one  under  CP/v-80  is  incorrect  and  if  followed  tne 
first  30ZH  bytes  of  tne  program  win  be  lost,  A  correct 
procedure  is  to  load  tne  cola  start  loader  «itr.  DDT ,  -"o vs 
tne  program  so  tnat  it  starts  u  90FH,  exit  DDT  and  finally 
call  tne  SYSGEN  utility.  A  correct  sequence  of  commands 
Iooks  litce  tnis: 

DDT  LOADER. CPD 
mll0!i5,18k50,1900 
ma00,1100  ,1 d?2 
m400,aee,c0e 
ml00,400  ,900 
<C  ONTROL-C  > 

SYSGEN 

<CR> 

£ 

<CR> 

Tne  dccurnentat ion  for  tne  3038  assemblers,  "ASv!cb.CO/” 
and  "aSV85.CMD"  also  contains  errors.  According  tc  tne 
user's  manual,  IRef.  d]  ,  tne  "device  switcn"  for  tne  listing 
device  is  Tne  correct  switcn  is  "y”. 

Tne  tecnnicai  manuals  provided  witn  tne  Usk  drives  and 


controllers  used  ratner  ambiguous  and  non  standardize! 


terns.  Tni s  often  required  experimentation  to  determine  wnat 
was  really  -react. 

Resolution  of  tee  above  difficulties,  nowever,  was  a 
good  learning  experience  for  tne  autnor. 

b.  RECOMMENDATIONS  FOR  FUTURE  HARD  DISK  ADDITION 

1 .  Discussion 

Altnoug.h  there  are  several  metnois  of  accomplishing 
disc  I/O,  DMA  seems  to  be  tne  simplest  to  implement  and. 
debug.  A  future  hari  disK  addition  would  greatly  enhance 
CP/M-96's  usefulness.  In  this  vein,  a  card  aisic/fioppy  disK 
combination  would  be  ideal.  The  combination  of  hard  and 
floppy  disirs  would  provide  tne  speed  ana  storage  capacity  on 
one  hand  (from  tne  nard  disi)  ana  tne  ability  for  tne  user 
to  teep  copies  of  his  files  where  he  is  assurei  of  their 
security  and  integrity.  However,  inclusion  of  tne  ISBC  2^1 
or  222  is  not  recommended.  The  limited  addressing  capability 
of  tnese  controllers  would  hinder  overall  system 
effectiveness  and  force  the  processor  to  operate  in  tne 
bottom  64K  of  tne  address  space.  As  a  rule  of  thumb,  if  mere 
than  one  device  is  to  be  aided  to  tne  basic  system,  only  one 
device  snould  be  added  at  a  tine. 

2.  Template  for  Adaptation 

Given  tnat  a  nard  disK  is  to  be  installed  in  place 
of  tne  diskette  system,  tne  following  procedure  should  oe 


followed 


First,  tne  CP/V-BS  BIOS  snoulc  be  studied  in 
conjunction  witn  tne  current  hardware  to  see  now  tne 
interface  is  currently  accomplished.  Tne  system  modifier 
must  understand  now  tne  operating  system  interacts  witn 
hardware  before  creating  nis  own  interface.  Second,  tne 
target  nardware  must  ce  studied.  Tne  electronics  are  not 
important,  but  wnat  tne  nardware  dees  logically  and  new  it 
communicates  witn  tne  controller  is  paramount.  In 
particular,  tne  organization  of  data  on  a  dist  drive  must  be 
thoroughly  understood.  If  tne  organization  of  data  is 
selectable,  tne  most  efficient  and  straightforward 
organization  must  he  cnosen.  If  it  is  not  selectable  and  not 
directly  compatible  witn  tne  3D0S,  a  "ciocting/debiocting" 
or  some  other  seneme  must  be  considered.  Third,  a  list 
definition  must  be  written  to  reflect  tne  logical 
organization  of  tne  dist.  If  the  logical  organization  cf 
data  does  not  maten  its  physical  organization,  tne  executing 
routine  in  tne  BIOS  would  nave  tc  mate  tne  translation.  Fcr 
example,  in  a  muiti  nead  dist  system,  tne  tracts  would  nave 
to  he  numbered  in  tne  list  definition  as  though  tney  were  on 
tne  same  platter  (logical  org.),  tne  Bros  would  select  a 
sector  and  a  ‘'logical"  tract  for  I/O,  but  before  sending  tne 
channel  command  tne  BIOS  would  nave  translate  tnat  "logical" 
tract  number  to  a  nead  and  tract  combination.  Fourtn,  a 
template  for  tne  cnannel  command  should  be  placed  in  tne 
BIOS  with  appropriate  variable  names  to  aiicw  the  BTOS  to 


provide  as  ruca  information  directly  as  possible.  ?iftn, 
write  tne  ’’execute"  routine.  Tni  s  routine,  tee  ouiic  of  tne 
coding,  must  complete  tne  ctiannel  command,  prepare  tne  lisle 
for  access,  send  tne  activating  command,  cnecit  comDletior. 
status  and  nandie  nariware  errors.  Tnis  step  requires  a  good 
Knowledge  of  tne  target  disit  system  and  is  very  muon 
dependent  on  tne  list  cnosen.  Sixtn,  once  tne  revised  BIOS 
is  written,  it  must  be  assembled  (in  tne  loader  version  too, 
if  booting  from  a  floppy  disK).  Tne  files 
"BIOS.Hee"  and  "PATa.Hee”  are  combined  into  ’’CPMX.HBS".  Tnis 
resulting  file  is  converted  to  executable  form  oy  executing 
tne  command  "3ENCMD  CP!“!X  808£{A40]"  as  described  in  Ref.  5. 
Tne  resulting  file  is  tnen  renamed  "CPtt.STS". 

The  bootstrap  program  will  be  very  simple.  It  can  be 
written  to  explicitly  read  t.ne  first  sector  of  tne  disic,  tc 
determine  tne  loading  target  address,  and  to  read  tne 
following  76  (I2e  byte)  sectors.  Once  tne  BIOS  nas  been 
modified,  tne  bootstrap  program  will  be  almost  a  trivial 
subset  of  tnat  code. 
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APPiN  DI 1  A 


title  'Customized  Basic  I/O  System' 

?)!<¥<<  V9  WVW  »»»»»?  VW  W*  WSt  W  W=* 


V  V 

*  Tnis  Customized  BIOS  adapts  CP/M-^6  to  * 

*  tne  following  Hardware  configuration  v 

*  Processor:  iSEC  dbl2  '■* 

*  Controller:  iSEC  201  * 

*  memory  model:  «0B0  * 

*  Programmer:  M.B.  Caadalor  * 

*  Revisions  :  v 

v  * 


Jf*  *****  ***********  ************************ 


true 

equ 

-1 

false 

equ 

not 

true 

cr 

equ 

0dn 

Jcarriatre  return 

if 

equ 

Kan 

•line  feed 

mai_retries 

equ 

10 

*fcr  aisi  i/o,  before  perm  error 

*************  ***  ****** 


*  V 

*  Loader_bios  is  true  if  assemoiine  tne  v 

*  LOADER  BIGS,  otnerwise  BIOS  is  for  tne  * 

*  CP*!. SYS  file.  * 

V  V 


**  9*?*  *******  V  **  *********  **  **** 


L0ADER_BI0S  EOU  TRUE 

odos_int  equ  22$:  ireserved  BDOS  interrupt 


IF  not  loader  bios 


; - 

•  l 
»  l 

t)ios_code 

ccp_of fset 

odos  ofst 
-  1  “* 

9  1 

i 

i 

equ  2500n 
equ  0000n 

equ  0B06n  ; BDOS  entry  DOint 

1 

1 

ENDIF 

Jnot  loader_Dios 

IF 

loader  Bios 

• 

» 


Dios_coae 
ccp_of f set 
odos  ofst 


equ  1200n  ; start  of  LDBIOS 
equ  0003a  »  Dase  of  CP!*L0ADER 
equ  04K6n  ;stripped  BDOS  entry 
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CS  l  s 
cla  ta 


ENEI E  i 

equ  t-ian 
eau  OdBn 


Jioaier  bios 


; 13251  status  port 
5  lata 


*  xf  *  *  «  W  *  *  V  «*  V  V  V  *  *  V  *  3*  V  V  **  V  V  ¥  *  a*  M  V  *  **  ^  J}t  V  V  V  **  *  **  V  V  V  * 

3?  ;* 

*  INTEL  i SBC  201  Dis£  Controller  Ports  * 

V  V 


base 

equ 

07Bn 

rtype 

equ 

case  +1 

roy  te 

equ 

oase-KS 

reset 

equ 

base+7 

astat 

equ 

base 

iiov 

equ 

oase+1 

ini  *n 

eau 

oase+2 

cseg 

org 

ccpof fset 

ccp : 

OTS 

bios_coie 

•  ?^VVV9?V<tV9¥VvrVVVVVVVVVVVWV^VVv^v9vVVV^Wy 

»* 

* 

•  *  BIOS  Jump 

Vector  for  Individual  Routines  * 

j  Tip 

IV  IT 

; Enter  fron  BOOT  ROM  or  LOADER 

,)Tp 

if  BOOT 

JArrive  nere  from  BDCS  call  0 

j^p 

CONST 

•return  console  Keyboard  status 

J*p 

COVIN 

;  re  turn  console  Key  ooara  cnar 

JTIO 

CCNOUT 

Write  cr.ar  to  console  levice 

Jup 

LI  STOUT 

Writs  cnaracter  to  list  aevice 

j^P 

PUNCH 

Write  cnaracter  to  puncn  device 

J-nn 

READER 

•return  cnar  from  reader  levice 

j^P 

HOME 

Wove  to  tn  eo  on  cur  sel  drive 

jT?p 

SELLSS 

•  select  diSK  for  next  rd /write 

JTP 

SET7RE 

Jset  tracK  tor  next  rl/write 

j  TJ  p 

SETSEC 

•set  sector  for  next  rd/write 

JTP 

SET DM A 

•set  offset  for  user  cuff  (DMA ) 

,)Tp 

READ 

Jreai  a  12b  byte  sector 

jnP 

WRITE 

Write  a  12b  byte  sector 

Itip 

LISTST 

Jreturn  list  status 

Imp  S3CTRAN 
j  Tip  SETD'-AB 
jmp  GETSEST 
jmp  GETICBF 
jTip  SLTIObF 


;  xiate  ioeical->pr.ysi  cal  sector 
.set  seg  case  for  cuff  (DMA) 
;return  offset  of  ^em  Desc  Tam® 
.'return  I/O  rap  oy te  (ICBYTE) 
.set  I/O  tap  cyte  (IOEYTE) 


5?  * 

*  IN  IT  Entry  Point,  Differs  for  LDP  I  OS  and  * 

v  BIOS,  according  to  "Lcaaer_Bi os "  value  * 

*  v 


IN  IT  S 


.print  signon  message  ana  initialize  na re ware 
mov  ax.es  » we  enterea  witn  a  JMPF  so  use 

mov  ss,ax  ;CS:  as  tae  initial  value  of  S 

mov  is , ax  JDS:, 


mov  es.ax  .and  ES: 

;  use  local  stacic  during  initialization 

mov  sp, offset  sucoase 

cia  .set  forward  airection 


IP  not  loader_Dios 

i  i  ! 

;  Tnis  is  a  BIOS  for  tae  CPM.STS  file. 

J  Setup  ail  interrupt  vectors  in  low 
,*  memory  to  address  trap 

pusn  as  .save  tae  DS  register 

mov  lOBiTE.e  J clear  IOBYTE 

mov  ax.fc? 
mov  is, ax 

mov  es.ax  .set  ES  ana  CS  to  zero 

J setup  interrupt  0  to  address  trap  routine 
mov  int(£_of  f  set  .offset  int_trap 
mov  int0_segment ,CS 
mov  di,4 

mov  si, 45  Jtnen  propaeate 

mov  cx,51«J  .trap  vector  to 

rep  rnovs  ax, ax  .all  £5b  interrupts 

JBDOS  offset  to  proper  interrupt 

mov  Bdos_off set , caos_ofst 

pop  as  Jrestore  tne  DS  register 


(additional  C?/M-c:6  initialization) 


ENDIF  Jnot  loader  oios 


IF 


loader  oios 


;  Tni  s  is  a  3  IDS  for  tr.°  LOALJSP. 
pusn  is  Jsave  lata  segment 

mov  ax,  A 

mcv  as ,  ax  Jpcint  to  segment  zero 

5  3DOS  interrupt  onset 
nov  bdos_of fset , oao s_of s t 

me v  olos_segment ,CS  Joaos  interrupt  segment 
(additional  LOADER  initialization' 
pop  as  .restore  aata  segment 


iNDI  F  jloaaer  bios 


mov  ox.ofrset 
call  pmsg 
mov  c  i  ,  tf 
jmp  cep 


s i?non 

Jpnnt  signon  message 
.default  to  ar  A:  on  coiastart 
.jump  to  eoli  start  entry  or  CCI 


4SDOT:  jmp  ccp+6 


jairect  entry  to  CCP  at  eommanc 


IF  not  ioader  bios 


i 

i 


r.t 


i 

i 


cii 

mov  ax.es 
mov  as, ax 
mov  ox, offset 
call  pmsg 
ill  t 


i 

i 


; blocs  interrupts 

>get  our  lata  segment 
int_trp 

*  nans  top 


I 

I 


FNEIF  ;not  icaaer_oios 

W 

*  CP/M  Cnaracter  I/O  Interface  Routines  v 

“  console  is  USART  (is25lA)  on  iSDC  3612  * 
v  at  ports  Dfc/DA  v 

CONST:  Jconsoie  status 

i r.  ai.csis 
and  ai , 2 
jz  const_ret 

or  ai,255  jreturn  non-zero  if  raa 

cons  t_ret : 

ret  Jrcvr  data  available 


level 
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con im 


Jconsoie  ir.out 


call  CONST 

jz  CONIN  jwait  for  RDA 

in  al ,cda  ta 

and  al,?ffl  Ireaa  data  S  remove  parity  sit 

ret 


CONOUT: 


; console  output 


in  a  1 ,  c  s  t  s 
ana  ai,l 
jz  CONOUT 
mov  al»  cl 
out  ciata.ai 
ret 


•  get  console 

Jtransmi tter 
itnen  return 


status 


Duffer  is  empty 
da  ta 


LISTOUT : 

re  t 


♦list  device  output 
fnot  implemented' 


LISTST: 


ret 


fpoil  list  status 
•  not  implemented 


PUNCH:  ; write 


READER: 

mov  al.lan 
ret 

OETI03E : 

VCV  AL.ffl 
ret 

S  ST  1031’ : 

ret 

>  Routine  to  ?et  ana 
;  and  sairt  it 


puncn  device 
•not  impienentea 


•return  eof  for  now 


JlOBiTE  NOT  IMP1S*1ENTED 


fiooyte  not  implemented 

cno  a  console  cnaracter 
o  upper  case 


u cone cno : 

call  CONIN 
pusn  ax 
mov  cl,al 
call  CONOUT 
pep  ax 
emp  al ,  "a 
j  b  uret 
emp  ai ,  'z ' 
Ja  uret 


•  get  a  console  cnaracter 

•  save  and 

;ecno  to  console 

•  less  tnan  'a'  is  ok 
•ereater  tnan  ' z'  is  ok 


56 


ure  t : 


sub  ai ,  a  -'a  ;eise  snift  to  cans 


pmsg : 


mov  ai  ,  L3X  J 
test  al.ai 
j z  return 
mov  CL.Al 
call  CONOUT 
inc  EX 
j-nps  pmsg 


{get  next  cr.  ar  from  message 


f 1  *  zero  return 


{ orin  t  it 


inext  cnararter  and  ioon 


*  U 

*  Disit  Input/Output  Routines  * 

*  * 

V*  W  VW  WV  WW  WV  xnxmrwiftt  3jC  W9  WWW  www 


SELDSX:  {select  distt  given  by  register  CL 

ndisss  equ  2  {number  of  disas  (up  to  16^ 
mov  aisa.cl  {save  disa  number 

mov  bx ,  fc.'fc!0fc:ft  {ready  for  error  return 

cmp  cl.ndisas  5n  beyond  max  disas? 

jnb  return  {return  if  so 

mov  cn,0  {doubie(n) 

mov  bx.cx  { Dx  =  n 

mov  ci , 4  {ready  for  *16 

sni  bx.cl  {n  =  n  *  lb 

mov  cx, offset  Ip base 
add  bx.cx  {dpDase  +  n  *  16 

return:  ret  {ox  =  .dpn 

HCmE:  {move  selected  disa  to  nome  position  (Traca  0) 

mov  io  com.nomcom 
mov  trs.tJ 
call  execute 
ret 

SETTRK:  {set  traca  address  given  by  CL 
mov  tra.CL 
ret 

SETSEC:  {set  sector  number  given  by  ci 
mov  sect.CL 
ret 


SECTRAN:  {translate  sector  CX  uslne  tacie  at  [CXJ 
mov  cn,0 
mov  bx.cx 

add  bx.dx  {add  sector  to  tran  table  address 

mov  bi.Cbxj  {get  logical  sector 


ret 


3ETDMA:  » set  DM  A  offset  siwet  by  CX 
mov  ima_air,CX 
ret 


SE?Evae:  »set  Dma  segment  ffiven  by  CX 
mov  dma_seg,CX 
ret 
i 

GETSEGT:  ireturn  aaaress  of  pnysioai  memory  tacie 
mov  bx, offset  se2_tabie 
ret 


*C  3Jt  JJJ  3QC39C  *  J?  *2  *  *  3*  *  JJC  *6  W  *  *C  J*  *«  *  W  W  *«  **  **  V  W  *  V  **  **  **  V 

V  *!• 


* 

Ail  liSK 

I/O  uarameters  are  setu 

?•* 

s* 

DISE 

1  s 

disic  number 

(SELL'S  A) 

i.I 

THE 

is 

tracx  number 

(SETT RE) 

* 

* 

SECT 

is 

sector  number 

(SETSEC) 

we 

DMA_ADR  is  me  DMA  isd  offset  * 

READ  reads  the  selected  sector  to  tne  DMA* 
address,  and  VRITE  writes  tne  data  from  * 
tne  DMA  address  to  tne  selected  sector  * 

•* 

-•*=*:*  *u**c-m=*  w  WWW*  **>**•■**  WV&W 


READ: 

rrov  cl, 4 
mov  ai.disic 
sal  al.ci 
or  al.ricode 
mov  io_com,ai 
jmps  execute 

WRITE: 

mov  cl, 4 
mov  ai, disit 
sal  al.ci 
or  al.wrcode 
mov  io_com,ai 

EXECUTE: 


JcomDine  diss  selection 
Jwitn  opcode 

Jcreate  iopc 


;  create  iopb  for  write 


outer_retry : 

mov  rtry_cnt ,max_retries 

retry: 

in  ai.rtype  Jciear  controller 

in  ai.rDyte  » 

call  senicom 


i a.JL e :  in  al.lstat  ;*ait  for  '•ompietioa 

and  ai,4  Jreaav 

Jz  idle 

;  cnees  i.o.  completion  ok 

in  ai.rtype 

;  5525  unlinsei  i/o  complete  21  United  1 /o  ccmp 

;  12  diss  status  cnaaizel  11  (not  used) 

;  must  ce  a  d'h  in  ai 

test  ai,10o  Jreaay  status  cnange? 

JNZ  afREABY 
OR  AL,K 

jnz  werror  Jsome  otner  error,  retry 

»  cnecK  i/o  error  Pits 

in  ai.rtyte 
rci  ai,l 

mov  err_code,80n 

j o  wready  Junit  not  ready 

rcr  al,l 

"!ov  err_coie,al 

and  ai.tffen  *any  otner  errors? 

jr.z  werror 

» 

*  real  or  write  is  ok,  al  domains  v 

ret 

wready:  fnot  ready,  treat  as  an  error  for  now 
in  ai.rbyte  » clear  result  tyte 

jmps  trycount 

werror:  *  return  nardware  malfunction 
trycount: 

dec  rtry_cnt 
jnz  retry 
"ov  al,err  cole 
mov  an, 2 

mov  ox, ax  fmaJte  error  code  16  bits 

mov  bx,errtbl (EXJ 

call  pmsg  iprint  appropriate  message 

in  ai,cdata  Jflusn  usart  receiver  buffer 

call  uconecno  {read  upper  ~ase  console  c.naramer 
cmp  al,  'C' 

je  wboot_i  icancei 

cmp  al ,  'R' 

je  outer_retry  ?retry  le  more  times 
cmp  al,'T' 

Je  z  ret  Jienore  error 

or  al,0b5  ;set  code  for  permanent  error 

:  ret 


z  ret 


4  COOt  i 


Jean  t  maie  it  4/  a 


snort 


leap 


jup  tfSOOT 


;  v  r* 

'*  senacom  senis  tte  address  of  tne  iopb  to  v 

;*  tne  iSBC  201  * 

:  v  * 


•  W  WW  V«VS«V  WV  W  vV?  W>?  WJ***¥*  W  J*W  WV  W 

sendcom : 

MOV  CL,4 
MOV  AX , DM  A  SK3 
SAL  AX, CL 
ALD  AX, DMA  ADR 
MOV  1 0_ADR  , AX 
MOV  CL 74 
MOV  AX , CS 
SAL  AX, CL 

ADD  AX ,  OFFS  JiT  CHANCMD  JADD  SEG  &  OFFSET  FOR  201 

out  iiow.al 

mov  cl  ,e 

sar  ax,ci 

out  inign.ai 

ret 


igs  9*  V  ag*age  V  **  V  W  «*  *  V  *  V  V  V  V  *  s*  W  W*  V  W  W  J*  VV  *  9V  W  W  #  V 

*  V 

*  Data  Areas  * 

*  V 


lata  offset 


eau  offset  $ 


dseg 

org 

IOBYTE  do 
dlsK  do 
cnancmd  dO 
io_com  db 
nsec  db 
trie  db 
sect  db 
I0_ADR  Dtf 
dna_adr  dw 
dma~seg  dw 


iata_offset  Jcontigucus  witn  coce  segment 
0 

0  JdisA  nurnDer 

son  ,'iopo  caannei  word 

2 

1  jnutiber  sectors  to  ifer 

2 

0  jstart  sector 

0220 H  JPRYS  ADDR  FOR  SBC201  USD 

00B0n  »DMA  adr  (default) 

e  i Dm  a  Base  Segment 


HOM  COM  SCO  «5 
RDCODS  SOU  4 


60 


to**' 


ERR  CODE  CE  SfttfH 


VRC3DJS 

sea  6 

IF 

1 oadsr_oi os 

•  1 
f  l 

sisnon 

•  1 

9  t 

10 

10 

1 

) 

cr,if ,cr,lf 

'CP/M-=6  Version  1 .2 ' , or , if  , 0 

\ 

1 

1  "  " 

ENDIF 

;  ioaaer_cio s 

1 

1 

1 

1 

1 

M  | 

r 

not  loader_bios 

9  ! 

si^non 

10 

! 

f 

or ,if ,cr,if 

40 

'System  Generated  04/22/51' 

•  i 

9  | 

d  0 

cr,if f0 

i 

\ 

> 


ENDIF  ;not  loader  oios 


int_tr? 

do 

o  r ,  1 t 

d  o 

'Interrupt  Trap  Sait' 

db 

cr,lf,0 

errt  bl 

dw 

era , erl ,er2 ,er3 

dw 

er4,er5,er6,er7 

dw 

erS ,er9 ,erA,er3 

dw 

erC,erD,erE,erF 

dw 

eria ,er20  ,er40 ,erea 

era 

db 

cr, if, 'Null  Error  ?v',a 

erl 

10 

cr, if , 'Dele ted  Record  :',0 

er2 

db 

cr,lf,'CSC  Error  :',0 

er3 

db 

cr, if, 'Data  Overrun-Onierrun  :',a 

er4 

d  o 

cr, If, 'Sees  Error  :',2 

er5 

equ 

era 

er6 

equ 

era 

er? 

equ 

era 

era 

do 

cr, if , 'Address  Error  :',0 

er9 

do 

cr  If, 'Write  Protect  :',a 

era 

do 

cr,lf,'ID  CRC  Error  :',e 

erB 

d  o 

cr, if, 'Write  Error  :',0 

erC 

do 

cr, If , 'Sector  Not  Found  :',0 

erD 

equ 

era 

erE 

do 

cr,if,'No  Address  MarK  :',0 

erF 

dD 

cr, if, 'Data  Mars  Error  :',e 

erl  a 

equ 

er3 

er20 

equ 

er9 

erta 

equ 

erB 
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ertit  ac  cr, if, 'Drive  Not  Ready  :',0 

rtry_cr.t  do  1  {lisa  error  retry  counter 

{  System  Memory  Seement  Table 

segtable  do  1  {1  segments 

dw  t?a_se?  {1st  see  starts  after  RIOS 

dw  t pa~ien  {and  extends  to  it  6  it  it  it 

include  singles. iie  {read  in  disa  definitions 

loc_stK  rw  32  {local  staca  for  initialization 
staoase  equ  offset  ? 

lastoff  equ  offset  $ 

tpa_sep  equ  (lastoff -‘■0400n+l5 )  /  16 

tpa'ien  equ  0F00n  -  tpa_seg 

db  0  {fill  last  address  for  GENCMD 

•  VlWWfflllVVVffVVVVVVVVVVWVVIVfVVVtfVWVVVVVVVW 

;  v  * 

{*  Dummy  Data  Section  * 

;*  * 

j  W  WV  ap«t  ifWVW  W  WV>? 

dsee  It  {absolute  low  memory 

ore  0  {(interrupt  vectors) 

int0_offset  rw  1 

int0_5e«ment  rw  1 

{  pad  to  system  call  vector 

rw  2j!t({)dos_int-l ) 

bios_offset  rw  1 

bdos  seement  rw  1 

END 


rtry_cnt  db  0  idisa  error  retry  counter 
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APPENDIX  t 


title  'Customized  Basic  I/O  System' 


>*  * 

v  Tnis  Customized  BIOS  adapts  CP/M-B6  to  * 

*  tfce  following  Hardware  '*oafieuration  * 

*  Processor:  iSBC  8612  * 

Controller:  ISBC  202 

vemory  model:  8080 


Programmer:  !d.B.  Candaior 
Revisions  : 


MW  «  W  VWWWWff  WMMWWW  W  W**U>  W  WWW  V 


true 

false 

cr 

if 

max  retries 


eau 

-1 

equ 

not 

true 

equ 

01a 

{carriage  return 

eou 

0an 

{line  feed 

equ 

10 

{for  disit  i/o,  oe 

*  * 

*  Loader_bios  is  true  if  assemciine  tne  * 

v  LOADER  BIOS,  otherwise  BIOS  is  for  tne  * 

*  CP'I.SYS  file.  * 

*  * 


L0ADER_BI0S 

EOU 

TRUE 

odos_int 

equ 

224  {reserved  BDOS  interrupt 

IF 

not 

ioader_Dios 

’  i 
»  i 

oios_code 

equ 

1 

2600  n 

ccp_of f set 

equ 

00000 

odos  ofst 
; !  " 

equ 

0B06a  {BDOS  entry  point 

i 

i 

ENDIF 

{  not 

loader_oios 

IF 

load 

er_bios 

f  “,mrr~  -T  «■  W  TU  *  «  ... 

•  1 
t  1 

olos  code 

equ 

1 

1 

1200h  {start  Of  LDBIOS 

ccp_of fset 

equ 

0003n  »&ase  of  CPMLOADER 

blos_of st 

equ 

0406n  {stripped  BDOS  entry 
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.  I 
*  I 

i  “ 


f 

i 


ENDIF  > loader  Dios 


csts  equ  £dan  {IS2P1  status  port 

cdata  equ  0d9n  {  "  data 

• 
t 

{ 

*  V  V 

;v  INTEL  iSBC  2fc,'2  DIsk  Controller  Ports  * 

;  m  x 

•  »-•?  W  WW  VWVJi«  w  wvw  ww  w  w 


base 

equ 

2?9n 

rtype 

equ 

oase*l 

Tbyte 

equ 

Dase+3 

reset 

equ 

case-“7 

dsta  t 

equ 

oase 

ilow 

eau 

base+1 

inign 

equ 

tase+2 

cseg 

or? 

ccpoffset 

ccp : 

org 

bios_code 

J)C  w 

*  BIOS  Jump  Sector  for  Individual  Routines  * 

*  * 

WWW  vwwwwzc  ww&ww  wwww 


jnp  INIT 
jnp  WBOOT 
Jnp  CONST 
jmn  CONIN 
jnp  CONOUT 
Jno  LI  STOUT 
Jnp  PUNCH 
jnp  READER 
Jnp  30^E 
Jnp  SELDSK 
Jnp  SETTP.it 
Jnp  SETSEC 
jnp  33TDMA 
jnp  READ 
Jnp  WRITE 
Jnp  LISTST 


{Enter  fron  BOOT  ROM  or  LOADER 
{Arrive  nere  from  BPOS  nan  e 
{return  console  Keyboard  status 
{return  console  Keyboard  cnar 
»«rits  cnar  to  console  device 
{write  cnaracter  to  list  device 
{write  cnaracter  to  puncr.  ievi ~e 
{return  cnar  from  reader  device 
{move  to  tra:  UV  on  cur  sei  drive 
{select  list  for  next  rd/write 
{set  tracK  for  next  rd /write 
{set  ^sector  for  next  rd/write 
{set  "offset  for  user  tuff  ( D MA  ) 
{read  a  129  byte  sector 
{write  a  128  byte  sector 
{return  list  status 
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jmp  S  ECTRAN 
jmn  SET DMAB 
imb  GETSEST 
jmp  GETI03F 
Imp  3  ETI 03F 


jxiate  iogicai->pnysicai  sector 
Jset  see  6a se  for  ouff  (DMA) 
Jreturn  offset  of  vem  Desc  Tacie 
jreturn  I/O  map  5yte  (I03YTE) 
Jset  I/O  map  5yte  (I03YTE) 


j,t  v 

*  1N1T  Entry  Point,  Differs  for  LDEIOS  anl  * 

*  BIOS,  accorlin^  to  "Loaier^Si os"  value  * 


IN  IT : 


•  i 

*  i 


i 

i 


Jprint  signon  message  ana  initialize  nariware 
mov  ax,cs  jwe  eaterea  wltc  a  JMP?  so  use 

mov  ss,ax  JCS:  as  tne  initial  value  of  S 

mcv  is , ax  JDS : , 

mov  es,ax  Jand  3S: 


Juse  local  stacic  during  initialization 

mov  sp, offset  stiDase 

cld  Jset  forward  direction 


IF  not  loader  bios 


I 

I 

J  Tnis  is  a  BIOS  for  tne  CP!*. SYS  file. 

J  Setup  all  interrupt  vectors  in  low 
J  memory  to  address  trap 

pusn  is  Jsave  tne  DS  register 

mov  IQEYTE ,0  Jclear  I03YTS 

mov  ax,0 
mov  as, ax 

mov  es.ax  Jset  ES  and  DS  to  zero 

Jsetup  interrupt  0  to  adaress  trap  routine 
mov  int0_off set ,of f se t  int_trap 
mov  int0_segmer. t  ,C5 
mov  di,4 

mov  si  ,0  Jtnen  propagate 

tov  cx,5l0  Jtrap  vector  to 

rep  novs  ax, ax  Jail  256  interrupts 

J3D0S  offset  to  proper  interrupt 

mov  Ddos_or fset , bdos_ofst 

pop  ds  Jrestore  tne  DS  register 

(additional  CP/M-S6  initialization) 

i 

i 


ENDIF  Jnot  loader  oios 


IF 


loaaer  bios 


{?ni$  is  a  MOS  for  tne  LOADER 
pusn  is  {save  data  segment 

mov  ax.it 

mov  is, ax  { point  to  segment  zero 

{ BDDS  interrupt  offset 
wov  bios_of rset ,  Mos_ofs t 

mov  baos_segment ,CS  {bios  interrupt  segment 
(additional  LOADER  initialization) 
ooo  ds  , 'restore  lata  seemeat 


ENDIF  Jioaaer  Dios 


•nov  dx, offset  signon 

call  pm ser  {print  si ?nor.  message 

mov  ci.fc?  {default  to  or  a:  on  coiastart 

J m p  ccp  .jump  to  cold  start  entry  of  CC? 


VUOOT:  jmp  ccp+6 


{direct  entry  to  CCP  at  command  level 


not  loader  Dies 


*  i 

int_trap: 

cli 


cii  J  01 o ck  interrupts 

mov  ax,cs 

mov  ds.ax  ,'get  our  data  segment 

mov  ox. offset  int_trp 
call  pmsg 

nit  {nardstop 


SNUIF  {not  loader  cios 


*  * 

*  CP/M  Caaracter  I/O  Interface  Homines  * 

V  V 

*  console  Is  USaRT  (i52blA)  on  iS.SC  b6l2  * 

311  at  ports  fly/DA  * 


CONST:  {console  status 

In  ai  ,csts 
and  ai,2 
Jz  const_ret 

or  ai,2bb  {return  non-zero  if  raa 

cons  t_ret: 

ret  {revr  data  available 
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CON  IN  : 


call  CONST 
J 2  CON  IN 
in  ai.cdata 
and  al,7fn 
re  t 


Jeon  sole  input 


Jwait  for  PDA 


;reac  data  i  remove  parity  nit 


CONOUT:  ;consoie  output 

in  al.csts 

anial.l  Jsretco 

jz  CONOUT 
m  o  v  ai.ci 

out  cdata.al  Jtransm 

ret  Jtnen  r 


Jsret  console  status 


Jtransmi tter  buffer  is  empty 
itcen  return  data 


LISTOUT: 


LISTST: 


PUNCH: 


Jiist  device  output 
jnot  implemented 


»pcii  list  status 
>not  implemented 


Jwrite  punca  device 

* n o t  imolemented 


READER: 


mcv  al.lan 
ret 


GETIOBF: 


*07  AL  ,<i 
ret 


SETIOHF: 


jreturn  eof  for  no w 


5 IOBTTE  NOT  IMPLEMENTED 


Jiobyte  not  implemented 


;  Routine  to  get  and  ecr.o  a  console  on  a  raster 
;  and  snift  it  to  upper  case 


uconecno : 

call  CONIN 
pusn  ax 
mcv  cltai 
call  CONOUT 
pop  ax 
cmp  ai  ,  'a  ' 

,1  b  u ret , 
cmp  ai , ' z ' 
.la  uret 


t  a  console  cnaraoter 


?save  and 


»ecno  to  console 


Jiess  tnan  a  is  os 


Jgreater  tnan  z  is  os 


uret : 
OTS  9 ! 


s  u  o  al.'a'-'A'  Jeise  br.it  t  to  ~aps 
ret 


is v  ai.OX j  ,*get  next  cnar  from  message 

test  ai,ai 

) 2  return  *if  zero  return 

mov  CL, AL 

call  CO NO UP  ; print  it 

inc  rl 


j  n  ps  pmse1  .next  cnarccter  an  loop 

7  'S 

*  DiSfC  Input/Out  put  Routines  * 

rfi  * 


SELDSK : 

; select 

aisi  ^iven  by  register 

niisics 

eau 

2  jnumber  of  disKs  (up  to  lb) 

mov 

diss.ci 

Jsave  dist  number 

mov 

ox ,  MUUn. 

Jreadv  for  error  return 

cmp 

cl , ndi sks 

5 n  beyond  max  dibits? 

jnt 

return 

Jreturn  if  so 

mov 

cn ,  0 

Jdoubie(n) 

mov 

bx ,  cx 

5  c  x  =  n 

mov 

Cl  ,4 

Jreadv  for  '‘lb 

sni 

bx  ,  cl 

;n  =  n  9  16 

tov 

cx, offset  ipbase 

add 

bx ,  cx 

;  dp  base  +  r.  *  15 

return : 

re  t 

Jbx  =  .dpn 

H0*E : 

;move  selected 

lisK  to  nome  Qosition  (T 

mov  i  o_com  ,aomcotn 
mov  trit.k? 
caii  execute 
ret 


SETTR5:  Jset  tra^K  allress  siven  by  CL 
mov  trit.CL 
ret 


SETSEC:  iset  sector  number  eiven  by  ~i 
mov  sect, CL 
ret 


SECTRAN:  jtranslate 
mov  cn,tf 
mov  bx,cx 
TEST  DS.ee 
:z  NO  SEE/ 


sector  CX  usin*  taoie  at  (DXJ 


; I S  THERE  A  SKStf? 
!IF  NOT,  SET 
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NO  SflEVT: 


add  bx,ax 
TOV  01  ,  (ox] 
ret 

ADD  3X,1 
RET 


Mda  sector  to  tran  tatu=  address 
;?et  io?icai  sector 


SETDMA:  Jset  DMA  offset  given  o.v  CX 
■nov  ima_adr  ,CX 
ret 

SETDMAB:  Jsst  DMA  segment  given  oy  CX 
mov  dma_se?.CX 
ret 

! 

G5TSEGT:  jreturn  aaaress  of  physical  memory  tame 
mov  bx, offset  se?_tatle 
ret 

;  v  w 

;*  Aii  disx  I/O  parameters  are  setup:  * 

;*  DISE  is  distc  numoer  (SELDSE)  # 

;*  THE  is  trade  number  (SETTRK)  * 

;*  SECT  is  sector  numoer  f  SETS EC )  * 

; *  10  ADR  IS  THE  PHYS  ADDR  FOR  DMA  * 

;*  DMA~ACR  is  tne  DMA  isc  offset  * 

;v  read  reads  tne  selected  sector  to  tne  DMA* 

;*  address,  and  rfRITE  writes  tne  data  from  * 

; *  tne  DMA  address  to  tne  selected  sector  * 


READ: 


WRITE: 


mov  cl, 4 
mov  al.dlss 
sal  al,ci 
or  ai.rdcode 
mov  io_com,ai 
jmps  execute 

mov  cl, 4 
mov  al.diss 
sal  ai.cl 
or  al,wrcode 
mov  io_com,al 


EXECUTE: 
outer_retry : 


Jcombine  disi  selection 
;  w  i  t  n  opcode 

fereate  iopb 


Jcreate  iopb  for  write 


retry : 


rov  rt  ry  ~nt  ,ma  x  ret ri  es 


in  ai.rtype  Jclear  controller 

in  ai.rbyte  » 

can  sendcom 

idle:  in  ai.istat  .wait  for  completion 

and  ai,4  Jready 

jz  i a 1 e 

;  cnecs  i.o.  completion  os 

in  ai.rtype 

;  00uniinsei  i/o  complete  01  i insec  1/0  co^p 

;  10  lisle  status  cnangec  11  (not  usei) 

i  must  fie  a  00  in  al 

test  alfi0b  Jready  status  cnange? 

JNZ  WREADT 
OR  AL.0 

jnz  werror  .some  otfier  error,  retry 

;  cnees  i/o  error  bits 

in  ai.rbyte 
rci  ai.l 

mov  err_coae,90n 

Jb  wready  .unit  not  ready 

rcr  ai.l 

mov  err  coae.al 

and  ai.Sfeh  Jany  ot.ner  errors? 

jnz  werror 
J 

;  read  or  write  is  os,  ai  contains  0 

ret 

wready:  Jnot  ready,  treat  as  an  error  for  now 
in  ai.rbyte  Jciear  resuit  byte 

Jmps  trycount 

werror:  Jreturn  naraware  malfunction 
tryooun  t: 

dec  rtry_cnt 
jnz  retry 
mov  ai,err_cole 
mov  an,0 

mov  bx.ax  Jmase  error  code  15  cits 

mov  ox  ,  errt  bl  [HXJ 

call  pmse  .print  appropriate  message 

in  ai.cdata  Ji'lusn  usart  receiver  buffer 

call  uconecno  Jreac  upper  case  console  cnaracter 

emp  al ,  'C  ' 

je  wcoot_i  .'cancel 
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99  999999  99  9  99  99  99  9  9  999  9  999  9  9  9  9  9  9  9  9  9  9  9  99  99  99  9  ¥¥ 


*  sendcom  sends  tne  address  of  tne  iopb  to  * 

*  tae  1SBC  202  w 


99  9  99999999999999999  V*  999  »?**  99  9999999999  99999999 


seadcom : 

MOV  CL, 4 
MCV  AX, DMA  S£G 
SAL  AX, CL 
ADD  AX, DMA  ADR 
M07  10  ADR.TAX 
MOV  CL, 4 
MOV  AX , CS 
SAL  AX, CL 

ADD  AX,  OFFSET  CHAN  CM  D  {  ADD  SEC  &  OFFSET  FOR  24:2 

out  ilow.ai 

nov  cl,B 

sar  ax,''! 

out  inien.ai 

ret 


•  9999  99999999999999999999999999999999999  9  999 9  9 

J  9  9 

l*  Data  Areas  * 

j  9  9 

•  9999999999999999  999999999999999  99  9999  9  9999999 

data_offset  equ  offset  s 

dse? 
o  re 

I0BYTS  db 
disn  db 
cnancMd  db 
io_com  db 
nsec  db 
trie  db 
sect  db 


data  offset  { contiguous  witn  code  segment 
e 

'i  Jliss:  number 

90n  {iopb  cnannei  *ord 

0 

1  {number  sectors  to  xfer 

0 

0  {start  sector 


10  ADR 

rw 

t*ez^H 

;?HYS  ADDR  FOR  SBC20Z  USB 

dma  adr 

dw 

0080n 

;B*A  aar  (default) 

ira_seff 

Iw 

0 

JDMA  Base  Segment 

HO'!  COM 

SO'J 

•x 

P.PCSdE 

ECU 

4 

ERR  COE 

E  DB 

eo  e 

VRCODE 

ECU 

5 

I? 

loader 

_DiO  S 

f  ■-1  — —  —  — — 

.  1 

J  \ 

si ?non 

db 

cr.if. 

1 

1 

c  r ,  i  f 

•  » 
f  i 

db 

'CP/M- 

BS  Version  l .  'l ' ,  c  r ,  if  ,0 

1 

J 

SNDIF  Jioader  bios 


IF 

not  loaler_bios 

•  ! 

*  1 

si^non 

d  b 

cr.if .cr.if 

■lb 

'System  Generated  05/25/Sl 

•  i 
» i 

a  b 

c  r  ,  1  f ,  l 

RNDI 

F  Jnot  loaier_bios 

int  tro 

lb 

a  r ,  if 

d  b 

'Interrupt  Trap  Halt' 

a  r 

cr.if  ,0 

errt  bl 

iw  8 

r0 , erl ,er2 , er3 

aw  e 

r4,er5 ,er6  ,er7 

dw  e 

rE .ery.erA.er3 

Iw  e 

rC ,erD  ,er£ , erF 

aw  e 

rl0.er20.er4O ,erfc0 

era 

db 

cr.if,  'Null  Error  ?v',0 

erl 

db 

cr, if , 'Dele  tel  Record  : ' , 0 

er2 

db 

cr  ,  if  ,  'CRC  Error  :  ' ,  <3 

er2 

d  b 

cr.if, 'Data  Overrun-Unie rrun  : 

er4 

db 

cr.if,  'Seeit  Error  :',0 

er5 

equ 

er0 

erb 

eau 

erO 

er? 

equ 

er0 

era 

db 

cr , if  , 'Address  Error  :',0 

ery 

do 

cr, if , 'Write  Protect  :',0 

erA 

lb 

cr.if, 'IE  CRC  Error  :',0 

er3 

a  b 

cr, if, 'Write  Error  :',0 

erC 

lb 

cr.  If  , 'Sector  Not  Found  : ' , 0 
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erD 

equ 

erZ 

erE 

d  c 

cr,  it¬ 

, 'no  Andress  Ma  rx 

ca  r  F 

do 

er,  if 

, 'Data  yarx  Error 

erlZ 

equ 

er3 

ar2tf 

equ 

e  r9 

erii? 

equ 

er£ 

ersifl 

a  d 

cr ,  if 

, 'Drive  m o  t  Ready 

rtry_cnt  4c  0  Misx  error  retry  counter 

»  System  Yenory  Segment  Tacie 

segta  ole  Id  1  jl  segments 

4w  tpa_se?  .'1st  se?  starts  after  B I DS 

dw  tpa“ien  ;ana  extends  to 

INCLUDE  DOCJiLE  .LIB  ;  READ  IN  DISK  DEFINITIONS 

ioc_stx  rw  3kJ  »  local  stacx  for  initialization 
stxoase  equ  offset  3 

lastoff  eau  offset  3 

tpa_se?  equ  ( last  of  f +0400n+i:o )  /  16 

tpa~ien  equ  KFfcJZa  -  tpa_seg 

4d  z  .fill  last  address  tor  GENCMD 

j  WWW vwwifwwv 

;v 

» *  Eummy  Data  Section  * 

;  v  *f 


dse<? 

Z 

Jaosolute  low  memory 

org 

0 

;  (interrupt  vectors) 

intZ 

_of  fset 

rw 

1 

intZ 

_se?ment 

rw 

1 

? 

pad  to 

system  call  vector 

rw 

2* ( odos 

_lnt-i ) 

DlOS 

_o  f  f  s  e  t 

rw 

1 

Ddos 

segment 

rw 

1 

END 

rtry_cnt  ID  z  Jdistc  error  retry  counter 
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A 

n 


PPSKDIT. 


n 


ROM  bootstrap  for  CP/^-mfc  or.  ar.  iS£C55/12 
w  i  t  n  tne 

i5.BC  20  1  4  202  Floppy  DiSi  Controllers 


f  Copyri?nt  (Cl  I960,  1951 

;  Digital  F.esearcn,  Inc. 

;  Box  57V,  Pacific  Orcve 

*  California,  93350 

;*  Tnis  Is  tre  BOOT  ROM  wnicn  is  resident  * 
; ^  in  tne  957  monitor.  To  execute  tne  Doot  * 
;*  tne  monitor  must  be  brougnt  on-line  and  v 
i*  tnen  control  passed  by  tne  command  * 

; *  ”e,ffd4:e".  First,  tne  ROM  moves  5:8 

;*  a  copy  of  its  data  area  to  RAM  at  icca-  * 
;*  tion  00000K,  tnen  initializes  tne  segment* 
;*  registers  and  tne  stacx  pointer.  Tne  * 
various  peripneral  interface  cnips  on  tne* 
;*  SBC  56/12  are  initialized.  Tne  5251  * 

;*  serial  interface  is  configured  for  a  9600* 
;*  baud  asyncnronous  termnai,  and  tne  in-  * 
;*  terrunt  controller  is  setup  for  inter-  * 

;*  rupts  10H-17H  (vectors  at  00040E-0005FH )  * 
;  *  and  edge-triggered  auto-SOI  (end  of  in-  * 
;*  terrupt)  mode  witn  ail  interrupt  levels  * 
; v  ma  siced-of  f .  Next,  tne  221-202  Diskette  * 
i*  controller  is  initialized,  and  traci  0  - 

»*  sector  1  is  read  to  determine  tne  target  * 
»*  paragrapn  address  for  LOADER.  Finally,  * 
>*  tne  LOADER  on  tracs  0  sectors  2-25  and  * 
»*  tracK  1  sectors  1-2S  is  read  into  tne  * 
i*  target  adlress.  Control  tnen  transfers  * 
»*  to  LOADER.  ROM  * 

; *  0  contains  tne  even  memory  locations,  and* 
>*  ROM  1  contains  tne  odd  addresses.  BOOT  * 
?.0m  uses  RAM  between  00200 H  and  000FFE  * 
;*  (absolute)  for  a  scraton  area ,  aion?  wi tn* 
i*  tne  sector  l  buffer.  * 

J  **Ji«***  ****** »*»*»** 

cr  equ  Id 

if  equ  10 

;  aisle  ports  and  commands 
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base 

eau 

0^80 

rtype 

equ 

case*! 

r  byte 

equ 

oase+3 

reset 

eq  u 

tase-7 

t 

ista  t 

equ 

base 

ilow 

equ 

base+1 

inign 

equ 

base+2 

9 

{actual  console 

baud 

rate 

oaui_ra  te 

equ 

{value  for  -253 

baud 

counter 

baud 

equ 

758/ ( baud_ra  te /100 ) 

9 

csts 

euu 

0DAn 

{i62bl  status  port 

data 

equ 

zesn 

;  "  data  port 

9 

tcn0 

equ 

e  Can 

{8253  PIC  cnannei  0  port 

tcnl 

equ 

tcnZ+2 

f cn  1  port 

tcn2 

equ 

tcnZ+4 

»?ft  2  port 

tend 

• 

equ 

tcnZ+6 

{8253  command  port 

icpl 

equ 

ZCzn 

{8259a  port  0 

icp2 

• 

equ 

2C2fl 

{B259a  port  1 

t 

secsec 

• 

eau 

ZcBtl 

{offset  for  traci  l 

t 

ED'ISSG 

• 

* 

• 

SOU 

0FID4H 

9 

• 

f 

c  SP? 

5 

romsee 

{First,  move  our  data  area  into  EAP  at  0000  :0200 


» 


» 


mov  ax.cs 

mov  ds.ax  {point  DS  to  CS  for  source 

mcv  Sl.dromoegin  {start  of  data 

rrov  DI, offset  ram_start  {offset  of  destination 
•nov  ax, 2 

mov  es.ax  {destination  segment  is  MM 

nov  CX,data_len*tn  {.do*  mucn  to  move  in  bytes 

rep  movs  ai,ai  ;nove  out  of  epron  a  tyte 

{at  a  time 


nov  ax,0 

nov  ds,ax  {data  segment  now  in  RA,W 

mov  ss.ax 

mov  sp, stacK_of fset  {Initialize  stacu:  segment/ 

{pointer 

{clear  tne  direction  fiae 


*5 


cld 


Setup  tne  6259  Progra-nmaoie  Interrupt  Controller 


f 


'no  v 

al , 130 

out 

lcpl, ai 

»y259e  lew  i  ek’bb  mode 

tiov 

al , 10n 

out 

icp2,al 

Jb259a  ICW  2  vector  'J  42-5F 

•nov 

al , lFn 

out 

icp2,ai 

; 52 5ba  ICW  4  auto  iOI  Tiaster 

710  V 

al ,  2FFn 

• 

out 

icp2,ai 

{52 59a  OCW  1  mast  an  levels  off 

J 

; Reset 

• 

and  initialize 

tne  '<221/222  Diskette  Interface 

f 

restart 

• 

• 

*  also 

come  oacic  nere  on  fatal  errors 

i  n 

al , rtype 

•clear  status  type  resister 

in  al.royte 

{clear  status  register 

out 

reset  ,a  l 

•  reset  diskette  system 

noner : 

710  V 

EX, offset 

no  me 

CALL 

execute 

;no7ie  drive  2 

J 

-io  v 

ox, OFFSET 

sectorl  {offset  for  first  sector  D^A 

-nov 

ax ,  ox 

{eater  in  pactet 

mcv 

ox ,  off  set 

read2+5  ;  t 

710  V 

l ox] ,al 

• 

inc 

ox 

•nov 

[ox]  ,an 

{pactet  now  con-piete 

710  V 

ox , offset 

read2  {pacxet  location 

• 

call 

execute 

{semi  packet 

» 

nov 

es , aos 

•  segment  loc  for  LOADER 

710  V 

ax.es 

•must  translate  to  16  Dit  aos 

710V 

cl  ,24 

{addr  for  distetta  controller 

sal 

ax ,  cl 

nov 

Ox , offset 

readl+b 

710V 

[ox  J ,al 

•enter  in  packet 

i  nr 

OX 

710  V 

[ox ] , an 

710V 

tx , offset 

readl 

. 

call 

execute 

{ read  tract  2 

t 

710V 

cl,  Z4 

710  V 

ax,es 

{compute  offset  for  tract  1 

add 

ax , secsec 

sal 

ax,  cl 

710V 

ex ,  offset 

read2+£ 

710  V 

L  b  x  J ,al 

inc 

ox 

710  V 

[ox J  ,an 

7*0  V 

ox, of fset 

reaa2 
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pi-Sif  ! 


conout : 


c  o  n  i  r. 


i 


enter  LOAEilE 

jmpf  iwori  ptr  ieap_ot‘?S9 1 

•riov  cl,  [HZJ 
test  cl, cl 
jz  return 
call  conout 
Inc  ET 
Jrp  pms# 


in  ai.csts 
test  al  ,1 
jz  conout 
■70V  al,cl 
out  cdata.ai 
ret 


in  ai.csts 
test  al  ,2 
jz  conin 
in  al.cdata 
and  ai,7Ffl 
ret 


execute : 
retry: 

in  ai.rtype 
in  al.royte 
call  sendcon 
idle:  in  ai.istat 

and  al,4 
Jz  idle 
in  ai.rtype 
test  ai,2 
Jz  intcmp 
JVP  RETfir 


{re*  •  it'  ^.-ive  no;  ready 
{clear  controller 


{system  status 


{system  aval  ting  mterupt 

{cnee*  drive  status 


{I/O  NOT  COMPLETE .  THY  AC-A1 N 
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intrmp 


S  *  c  t  u  s 


in  a  1 ,  r  cy  t  e 
--I  =1,1 
jae  iocno 
SC3  al ,  1 
Jrp  ratal 
r"r  al,l 
ana  ai,icfen 
Jz  return 
JVF  P2TRT 


;i 


i  s 


:crpie 


;  restore 
;  a  r.y  errors  V 


ratal: 
if  Pi'S  T : 


» 


return : 


, 

i 


H  0  V  C  i  ,  '£ 

SCR  AL, 1 

i nr  cl 

TEST  AL  ««f  1 

jz  nest 

mcv  ai,ci 

n o v  an ,  k 

ADr  AX,  AX 

rov  ft, ax 

-cv  sx,errtDi[£X] 

print  apDropriate 

call  pmsg 

rail  ~ o  ni n 

pop  ax 

jnp  restart 


{  ratal  e  rror 


*7i dice  15  cits 

error  message 

{wait  for  xsy  stride 
{discara  unused  ite- 
{  t  r.  e  n  start  all  ever 


TJ 


{return  rror  EXEP'JTZ 


senlcom:  {routine  to  sen!  a  corrana  stria?  to  liil 

mov  ax,Cx 
out  iiow,ai 
rcov  cl,  KB 
sar  ax, ci 

out  inign,al  {packet  aaar 

ret 


Image  of  data  to  ce  moved  to  Ra^ 


iromoeein  eau  offset  $ 


7B 


re a ibt  ri n? 


> 

cread  tr'-t0 


1  0 

cs?  a 

Joarareter  oiock  ic~w 

c  c 

4n 

» read  function  cone  for  drive 

i  b 

1 

;«  sectors  tc  reaa 

i  b 

c 

Jtracs  ft 

a  b 

1 

Jstart  witn  sector  1 

1  0 

2 

iwiii  contain  lower  ay te  aodr 

db 

0 

>  "  upper 

a  o 

b0n 

d  b 

4ft 

{real  tu 1 t i pie 

d  C 

2t 

t -  sectors  to  read 

1  D 

a 

?  t  racK  0 

db 

a 

t  start  *itn  2 

i  b 

0 

;aaar  for  tracic  0  ?oes  ners 

d  b 

z 

1 

creaotrsi 

d  b 

b0r. 

d  b 

4  a 

d  b 

25  ; sectors 

d  b 

1  Jtraci  ft 

db 

1  Jstart  witn 

1  D 

z  Jaaar  isn 

• 

j 

a  b 

0  jaadrnsc 

-  r.onee 

lb 

ben 

DB 

03  H 

i  b 

0 

lb 

0 

d  b 

0 

d  b 

i5 

lb 

0 

cerrtDi 

dw 

offset 

ero 

iw 

offset 

erl 

dw 

offset 

er2 

dw 

offset 

er3 

Iw 

offset 

of  4 

dw 

offset 

er5 

lw 

offset 

ers 

dw 

offset 

er7 

Cer0 

db 

cr ,  if , 

'Nuii  Error  W',0 

Cerl 

db 

o  r ,  l  f , 

'CRC  Error", 0 

Cer2 

db 

cr.if , 

'Sees  Error", 0 

Cer3 

db 

cr ,  if , 

"Address  Error", 0 

Cer4 

db 

cr.if. 

"Data  Overrun-Underrun 

Cer5 

a  b 

cr.if. 

"irite  Protect", 0 

Certo 

db 

cr.if. 

"Write  Error", 0 

Cer? 

• 

d  b 

cr.if. 

"Drive  Not  Ready", 0 

I 

drotiend 

equ 

offset  $ 

sector 


1 
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El 


eju  lrorreal-dror  oesrin 


lata  lenses 


f 

;  reserve  space  in  ?.av  for  lata  area 

;  (no  nex  records  venerated  nere) 


9 

dse? 

z 

or? 

Z2ZZn 

* 

ram_start 

equ 

S 

read2 

r  o 

7 

;  read 

trapse  Z  sector  l 

readl 

r  e 

7 

*  rean 

TZ  S 2-26 

read2 

r  d 

7 

»  reaa 

T1  S 1 -26 

none 

rb 

7 

» none 

drive  Z 

errt  ol 

TV 

£ 

erU 

ro 

ieng  tn 

cerz 

»ie 

erl 

rb 

1  e  n  s  t  n 

cerl 

er2 

rb 

ien^tn 

cer2 

er3 

ro 

lengtr. 

cer3 

eri 

rb 

ienetn 

c  e  r^ 

;i4 

er5 

r  b 

lengtn 

cerb 

;  n 

erb 

rb 

lengtn 

cerb 

as 

er? 

• 

r  b 

ienstn 

cer? 

;i7 

f 

leap_cf fset 

rw 

1 

ieap~sesment 

9 

TV 

1 

• 

9 

TV 

32 

» local 

star* 

stacK_off set 
• 

equ 

offset 

$»stacic 

from  nere  05#n 

9 

t 

T  e  51 

read  in  n 

ere 

secto  rl 

equ  of 

fset  s 

9 

Ty 

rb 

1 

Len 

TV 

1 

ADS 

TV 

1 

J  AJ3S  is  all  ve  car°  about 

Min 

TV 

1 

V 


APPENDIX  D 


tide  'b/c*  Diss  I/O  Drivers' 

•  v  W  v  v  V  v  •»»*«*  v  v  VW  *»»*»*  ^  V  *(*  v  'i*  W  V  V  v  V  v  •»»  v  v  :i*  W  VWv  Vv  *»•  v  V 

•  J*  * 

;*  Sasic  Input/Output  System  (Bios'  for 

;*  C? /d— 9 d  Configured  for  iSSC  cd/lii  witn  :: 

;*  me  iSEC  '//*  Floppy  Diss  Controller  * 

•  xt  ~ 

;  *  (Note:  mis  file  contains  ootr.  embedded 
i*  tans  and  oianss  to  minimize  me  list  file  * 
m  wicita  for  printing  purposes,  You  may  wise* 
m  tc  expand  tne  o iar.Ks  cefore  performing  * 

>*  jor  edi tin*. )  * 

;  Copyrig.it  (C)  iy£«?,l9di 

>  Dieitai  Resea ren ,  Inc. 

;  Bor  579,  Pacific  Drove 

;  California,  9,595k: 

;  (Permission  is  nereoy  ^rar.tea  to  use 

;  or  aostract  tne  following  program  in 

;  me  irplemectat  ion  of  CP/V!,  KP/*!  or 

;  CP/N2T  for  tne  52  =  5  or  9i?“5  Mlcro~ 

;  processor) 


equ  -1 

equ  not  true 


*  J,i  v  V  •?  v  V  V  V  V  V  V  v  V  V  v  V  *i'  V  V  *(•  «i*  V  v  *i*  *»*  Jj»  V  v  v  ?,?  ij»  V  V  J,t  #,»  »,«  if  if 

•  *  ;;; 

; *  Loaier_ti os  is  true  if  assembling  tne  * 
iv  LOADER  BIOS,  ctaerwise  BIOS  is  for  tne 
m  CP'dSFS  file.  Slc_iist  is  true  if  *e  * 

m  t37=  a  serial  printer  attacned  to  BLC9535  * 
m  Edos_int  is  interrupt  used  for  earner  * 

}*  versions.  ** 

•  *  ~ 

J  ;i*V¥  W  W  W  W  JrV  ^  Vv  VW  Vv  VW  WWW  W  I  v  if  »|»  #1?  if  if 

ioader_oios  equ  false 

oi o_i 1st  equ  true 

oies_int  equ  224  Jreserved  BDCS  Interrupt 

IF  not  loader  oios 


I 


I 


r 


Dios  -'ll0 

eau  2522 r. 

ccp_o fset 

5qu  t  c  1 2 .1 

dos_c:'st 

•  1  “ 
f  \ 

equ  2  P  2  S  l 

;3L0S  en^ry  point 

\ 

1 

siriF 

Jnot  load 

er_oios 

1? 

1 0  a  i  e  r  _  d  i 

0  s 

•  l 

1  1 

dcs  coie 

equ  1222.1 

1 

; start  of  LDP I C S 

0  c  p  _o  i  r  s  e  t 

eau  22231 

*  case  of  CP*! DALES 

D10S_OfSt 

equ  24261 

;  stripped  PC'JS  entry 

.  i  —  i 

f  t  ; 


ENL'IF  ;  loader  bios 


csts  equ  S?D A. n  ; i=251  status  pert 

data  equ  t'Dfcn  ;  "  lata  port 


If 

t 

-  i 
t  I 

lsts 
11a  ta 
dig  reset 

.  i  “ 

>  i 


Die  list 


equ  4ln 
equ  42n 
equ  555 ti 


I 

1 

?2o5l  No.  itf  on  BLC8538 
•  «  ••  »«  «•  •• 

t 

Jreset  seiectei  (JSAHTS 

i 

i 


s  tatus 
lata  pc 
on  t L C 8 


t  - - - - — 

ENEIF  ; Die  list 


5*  V  V  s?n*  9VWWVVV99VW9V9WVV  V  ^  j?  *  a,;  a,c 

*  Intel  1SBC  224  Disx  Controller  Ports  * 

T,t  V 

*  V  V  V  qe  >gt  v  V  V  V  V  V  «*  TjCJfC  s*  V  V age  7  a*  *  *  39c  J*  ***  * xp  a*  9  jjc age  agcjgc  sqc  V  V 


case224 

equ 

2a2n 

f  il_COn" 

equ 

Base224+2 

fdc_stat 

equ 

case224+2 

f lc_parm 

equ 

oase204+l 

ric_rsl t 

equ 

oase224+l 

fdc_rst 

equ 

Dase224+2 

d-nac_air 

equ 

Dase224+4 

a”"ac_cont 

equ 

Dase224+5 

lmac_scan 

equ 

Da  S  e224-*-6 

iTac~salr 

equ 

oase204+7 

i-nac_,node 

equ 

Dase224+fc 

t^ac_stat 

equ 

oase224+8 

• : 0  _sei 

equ 

oas  e204+9 

r 1 c_serment 

equ 

Base224+12 

SBC224  assigned  aairess 

8271  FDC  out  command 

8271  in  status 

8271  cut  parameter 

8271  in  result 

827 1  out  reset 

8257  DMA  Dase  alaress  out 

8257  out  control 

8257  out  scan  control 

8257  out  scan  alaress 

8257  out  mole 

8257  in  status 

iTC  select  port  (not  used 

segment  address  register 


82 


n.  o 


rese  t_204 

eq.u  Dase224+ib 

J reset  entire  interface 

max_ret  ri es 

e  a  u  12 

Jmax  retries  on  d  is  k  i/o 
; oefore  perm  error 

or 

equ  fe?dn 

{carriage  return 

if 

e q  u  2a n 

Jline  feed 

cseg 

o  r? 

ccpoff set 

ccp : 

o  rg 

D i os  _code 

3jC  2P  9  9 *  ?  *  *  ?  *  V  *E  V  3C  «  *  *  jgc  jp  *  J?  1*  Jjc  ap  *  *  9  *c  JiC  *  *  age «  *c  2?  9 

9  V 

v  BIOS  J unp  7ector  for  Individual  Routines  * 

V  V 

w  ijtlfWW  ¥»»CT  MVW  WSJtJ(tJ9tJ*  WW  VWSS  *V  W  W*  V* 


Jnp  INIT 
j  up  a/BOOT 
jnp  CONST 
jmp  COMN 
jnp  CONOUT 
jnp  LISTOUT 
jnp  PUNCH 
jnp  RBAD.HR 
jnp  HOMS 
jnp  SSLDSK 
jnp  SETTRK. 
jnp  S  STS  EC 
jnp  SSTDMA 
jnp  READ 
jnp  WRITS 
jnp  LISTST 
jnp  SSCTRAN 
jnp  SETDMAE 
jnp  GETS EGT 
jnp  GSTIOJBJ 
jnp  SSTIOBF 


; Enter  from  BOOT  ROM  or  LOADER 
{Arrive  nere  from  BDCS  call  e 
Jreturn  console  KeyDoard  status 
Jreturn  console  sceyDoard  cnar 
{write  cnar  to  console  device 
Write  cnaracter  to  list  ievice 
Write  cnaracter  to  puncr.  ievice 
Jreturn  cnar  iron  reader  device 
Jnove  to  trie  «5«d  on  cur  sei  drive 
{select  iiskt  for  next  rl/write 
Jset  tractr  for  next  ra/write 
Jset  sector  for  next  rd/write 
Jset  offset  for  user  Duff  (DMA) 
Jread  a  12=  cyte  sector 
J  write  a  12b  Dyte  sector 
Jreturn  list  status 
Jxiate  n fi cai->pny si cai  sector 
Jset  seg  Dase  for  ouff  (DMA) 
Jreturn  offset  of  Mem  Desc  TaDie 
Jreturn  I/O  nap  tvte  (IObYTE) 
Jset  I/O  nap  Dyte  (IOBTTE) 


V  s? 

*  INIT  Entry  Point,  Differs  for  LDBIOS  and  * 

*  BIOS,  according  to  ”Loaier_Bios"  value  )ft 

V  3? 


INIT: 


Jprint  si 
nov  ax,cs 
mov  ss,ax 
nov  ds,ax 


enon  message  and  initialize  nar 
Jwe  entered  wltn  a  JMPF 
J  CS:  as  tne  initial  value 
J  DS  : , 


c  f 


ss 


HL5 


i/> 


nov  es,ax  ;  am  i’S  : 

;  us=  local  stacic  during  initialization 
Tiov  sp,  offset  stioase 

ell  iset  forward  direction 

IF  not  ioader_trio s 

i  " 

•  i 

*  l 


i 

;  Tnis  is  a  BIOS  for  tne  CPb'.SYS  me. 
;  Setup  all  interrupt  vectors  in  low 
i  Tenr’ory  to  address  trap 


pusn  ds  Jsave  tne  DS  register 

■>  o  v  a  x  ,  4" 

Tiov  as, ax 

i'ov  es.ax  ;set  iS  anc  1)S  to  zero 

> setup  interrupt  £  to  address  trap  routine 
•nov  int<3_of  f  set . of  f  set  mt_trap 
-tiov  int45_segment,CS 
tiov  di,4 

tiov  si, 45  itnen  propagate 

7ov  cx,51fc!  Jtrap  vector  to 

rep  rovs  ax, ax  Jail  256  interrupts 

JBDOS  offset  to  proper  interrupt 

tiov  bios_off se t , oios_of st 

pop  ds  frestore  tne  CS  register 

*  5*  S*  *  V  SJC  *6  -*?  ^  2?  3?  JJC  J*  *  Jp  J?  3?  *  *  3?  *,<  SJt  *  Xfi  *Jt  if  Tfi,  9fi  3Jt  5*  ^  ^  JJt  X,  i  Xfi 


f  * 

National 

••  _  .  <* 
BL C  b'53b 

Crannei  25  for  a 

serial* 

•  ^ 

962545 

caud 

printer  - 

tnls  Doard  uses 

6  Si*—* 

J  r 

netics  25 

51  'Jsarts 

wnic.n  nave  on-cnip  caua* 

;  * 

•  ** 

rate 

venerators  . 

*  ».*  v*i7  v 

vv*r*i*  'r 

•i*  V  *i*  V  T  T  V  'i*  v  V  'i^  v  »«•  "i*  V*l*  *i"  'i*  *»*  »i*  •A  v  *1* 

TIOV 

al , eFFn 

out 

oi c  res^t, 

al  Jreset  an  usarts  or.  6  53  b 

TCV 

al , 4En 

out 

iiata+2,al 

»set  usart  <  in 

async  b  oit  -T,o 

C  6 

■710  V 

ai , 3En 

out 

Ida  ta+2  ,ai 

»’ s e t  usart  w  tc 

96450  Daud 

rov 

ai ,37n 

•  Y 

*  l 

out 

lnata*3  ,ai 

jenaoie  Tx/Rx, 

and  set  m  RTS, 

\ 

ITS 

»  • 

SNDIF  ;not  ioader_t)ios 

IF 

loader 

Dios 

f  “ 
•  I 
9  I 


l 

I 


»  T n. i  s  is  a  £105  for  me  LOADER 
ousr.  is  ; s a v e  data  seener. t 

v  o  v  a  x ,  'l 


t c v  ds.ax  {point  tc  segment  zero 

;EUC5  interrupt  offset 
iov  cdo s_of f se t , &io s_of s t 

tov  *ios_segmer. t  ,CS  {bdos  interrupt  sex-rent 


.  1 
*  1 

pop 

is 

{restore  lata 

1 

»  1  " 

SNCi 

F  ;  loader_cios 

-no  v 

ox, of f set 

signon 

call 

om  se 

.'print  sienon 

message 

no  v 

ci ,  Id 

Jaefaui t  tear 

A:  on  coicstart 

jpp 

c  CP 

{jump  to  cold 

start  entry  cf  CC? 

bOOT : 

-inp 

ccp+5 

.direct  entry 

to  CC?  at  command  level 

IF 

net  ioader_Dios 

n  — 

<-• 

►t 

an: 

I 

cl  i 

.'diock  interrupts 

mov 

ax,  cs 

mcv 

cs ,  ax 

{get  our  data 

segment 

rnov 

bx .offset 

int_trp 

can 

pTISg 

J ! 

nl  c 

{.narcs  top 

l 

1 

ENDIF  ;not  ioaaer  Dios 


WW  W  WW  WW  Wtfi&tfatat  VV5WVW  W 

*  V 

*  CP/P'  Caaracter  I/O  Interface  Routines 

*  Console  is  Usart  (iB25la)  on  iSBC  Bb/ IE  * 

*  at  ports  DB/DA  * 

at  ‘  v 

xv  VVW  Kt  at  3oW  tjUflfMWait  WWV  WMW  W  Vr  W  ¥VVVV 


COMST 


const 


{console  status 
in  ai.csts 
and  al,2 
jz  const_ret 

or  ai.Ebb  {return  non-zero  if  RBa 

ret: 

ret  {Receiver  Data  Available 


CONIN : 


{console  input 


Bb 


call  const 


jz 

COM  N 

,'*ait  for  HI  A 

i  a 

ai , caata 

and 

ai ,7f a 

;read  data  ana  remove  parity 

ret 

CONOUT: 

jconsole  output 

i  n 

ai ,  csts 

and 

ai  ,1 

Jsei  console  status 

Jz 

CON CUT 

Halt  for  TBE 

mov 

ai  , ci 

cut 

ciata , ai 

transmitter  Suffer  Empty 

ret 

itnen  return  data 

LISTOUT 

« 

0 

Hist  device  output 

• 

IF 

o  i  c  _ 

lis  t 

•  1 
f  l 

call  LISTST 

1 

1 

jz 

LISTOUT 

Halt  for  printer  not  busy 

•no  v 

al ,  cl 

-  \ 
f  1 
• 

out 

llata  ,ai 

Jsend  cnar  to  TI  cU' 

1 

1 

9 

ENDIF  ;olc 

_list 

ret 


LISTST : 


»pcJLl  list  status 


9  * 
•  I 
f  I 


•  f 
9  I 


IF  blc  list 


» 

i 

ia  sl.lsts 

and  ai,ain  Jioos  at  ootn  TxKLI  and  CTF. 

ctp  ai,81a 

jnz  zero  ret  ;eit.ner  false,  printer  is  ousy 
or  ai,255  ;ootn  true,  LPT  is  ready 

l 

1 


2NLI F  ; ole  list 


re  t 

PUNCH:  Jnot  implemented  in  tnis  configuration 
READER: 

mov  ai,lan 

ret  Jreturn  30F  for  now 

G2TI0BF : 

mov  ai , ; T T Y :  for  consistency 


ret  JI0EIT5  not  ixplexented 

S ST 1 03?: 

ret  Jiobyte  not  ixplenenten 


zero_ret : 

and  al,ti 

ret 

; re  turn  zero  in 

AL  ana  flags 

»  Routine  to  <?st 

nd 

ecno  a  console  cna 

racter 

,*  a  n  a  s  n  i  f  r 

!  t 

to  upper  case 

uconecno : 

call  CONI  N 
pusn  ax 
to v  cl , al 
call  CONOfJT 
pop  ax 
ctp  al ,  'a  ' 
j  t  uret 
CTp  al ,  'z  ' 

Ja  uret 

su  d  ai ,  'a  k' 

ure  t : 

ret 

;  utility  subroutine  to  print  messages 

pTsg: 

tov  al,(£Xj  »set  next  cnar  from  messave 

test  al,ai 

j z  return  »if  zero  return 

t  o  v  C  L ,  AL 

call  CONOUT  ;?r in t  it 

Inc  BX 

jxps  pxsp  ;next  cnaracter  and  loop 

J  »*  V 

t*  n$fc  Input/Output  Routines  * 

j  J(C  rf. 

•  WWf  iff  ww  VXfWWfV  W&VW  >***  W  VV'V>F  VV79V  v 

Jseiect  disK  siven  by  reeister  CI 
mov  bx,  000  tin 

cup  cl , 2  itnis  BIOS  only  supports  2 

jnD  return  ireturn  * /  titititi  in  £X  if  ta 

tov  al,  9  tin 
CTp  Cl , 0 

Jne  sell  jirlve  l  if  not  zero 

tov  al,  40a  jelse  drive  is  0 
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;5’et  a  console  cnaracter 

;save  and 

Jecno  to  console 

Jiess  taan  'a'  is  ox 

greater  tnan  'z'  is  ok 
ieise  snift  to  caps 


5SLDSH 


sell:  mov  sel_masic,al  isave  drive  select  masK 

how.  we  need  diss  Daraneter  address 

mov  cn,0 

mov  bx.cx  ,‘3X  =  word  (CL) 

mov  cl ,  4 

snl  or, cl  {multiply  anve  code  v  16 

{''reate  offset  from  Disi  Parameter  Base 
add  tx, offset  dp_oase 

return : 

ret 

HOMS:  ,'move  selected  disi  to  nome  position  (Traci  2) 

mov  trS,0  .set  list  i/o  to  tracic  2ero 

mov  bx, offset  nom_com 
call  execute 

jz  return  .nome  drive  and  return  if  OK 

mov  ox, offset  bai^ncm  {else  print 
call  pmsg  ."Home  Error" 

jmps  nome  .’and  retry 

SSTTRK:  {set  traca  address  given  by  Cl 

mov  trtt,cl  {we  only  use  B  bits  of  tracir  address 

ret 

SETSEC:  .set  sector  number  given  tv  cx 

mov  sect, cl  .'we  only  use  S  bits  of  sector  address 

ret 

SECTRAN:  {translate 
mov  bx,cx 
add  bx,dx 
mov  bl ,  [oxj 
re  t 

S ST DMA:  .set  DMA  offset  given  by  CX 
mov  dna_adr,CX 
ret 

SSTDMAB:  {set  DMA  segment  given  oy  CX 
mov  dma  see.CX 
ret 

♦ 

G-ETSEGT:  .return  address  of  pnysical  memory  table 
mov  bx, offset  seg_tatie 
ret 

•  vvwvii  w  wwvvwwMvjmtvwvwittwztv.wwvwvwv 

;  v  v 

;*  All  dist  I/O  parameters  are  setup:  tne  * 

{*  Read  and  rfrite  entry  points  transfer  one  * 

;*  sector  of  123  bytes  to/from  tne  current  * 


sector  CX  using  table  at  [DX] 

.add  sector  to  tran  table  address 
.get  logical  sector 
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9  D'U  address  using  tne  current  diss  drive  9 


3£AD: 

mov  ai,i2n  Jbasic  read  sector  command 

Jmps  r_nr_common 

.<RIT2: 

mov  aiti’an  .basic  write  sector  command 

r_w_com'nont 

mov  Ox, offset  io_com  ; point  to  command  string 
mov  byte  ptr  l[£XJ,ai  ;?ut  command  into  stria* 

»  fail  into  execute  and  return 

execute:  .execute  command  striae. 

I [BX]  points  to  lengtn, 

«  followed  by  Command  byte, 

»  followed  by  ienetn-1  parameter  bytes 

mov  iast_com,3X  ,'save  command  address  for  retries 
outer_retry: 

.allow  some  retrying 
mov  rtry_cnt ,max_retries 

retry: 

mov  £X,iast_com 

call  ssr.l_com  itransmit  command  to  iB271 
»  rnecK  status  poll 

mov  £Xflast_com 
mov  al,l[oxJ 
mov  cx,£H43fcft 
cmp  ai,2cn 
Jb  execjpoli 
mov  cx.Bi'Ben 
and  al,0fn 
cmp  ai,0cn 
mov  al,t? 
ja  axec_exit 

exec_poll : 

in  ai,fdc_stat 
and  al.cn” 
xor  ai.cl 
j  z  exec_poii 


in  al,fdc_rslt 
and  ai,len 


.get  command  op  code. 

JmasK  if  it  will  be  ”int  req" 

.'ok  if  it  is  an  interrupt  type., 

.else  v*e  use  "not  command  busy” 

.unless  tne re  isn't 

»  any  result 

Jpcii  for  bits  in  CS, 

;  to**led  witn  Dits  in  Cl 

.read  status 

»  isolate  wnat  we  want  to  poll 
.and  loop  until  it  is  done 

.Operation  complete, 

»  see  if  result  cole  indicates  error 


Jz  exec_exit  {r.c  error,  tner.  exit 

iiOTa  type  of  error  occurred  .  .  . 

cm p  a i,l5fn 

Je  ir_nrly  {was  it  a  not  ready  ririve  ? 

{ r.o , 

dr_rdy:  {  tnen  we  just  retry  real  or  write 
dec  rtry_cnt 

Jnz  retry  {  up  to  tires 

;  retries  io  not  re cover  r r or  tne 

{  r.ara  error 

r  o  v  a  d ,  i? 

•^ov  cx,ax  I'raire  error  coae  15  cits 

mov  bx,errtbi[iiXj 

''all  prse  {print  appropriate  ressa<?° 

in  ai,cdata  Jflusn  usart  receiver  suffer 

call  uconecno  Jreaa  upper  case  console  cneracter 
std  al ,  'C  ' 

je  wt>oot_l  {cancel 

cnp  al ,  '® ' 

Je  outer  retry  { retry  1L’  re  re  tines 
emp  al ,  T' 

je  z_ret  {ignore  error 

or  al,255  {set  code  for  permanent  error 

exec_exi t : 

ret 

lr_nrdy:  {rare  to  wait  for  drive  ready 

call  test_ready 

jnz  retry  {if  it's  ready  now  we  are  dene 

call  test_ready 

jnz  retry  {if  not  ready  twice  in  row, 

mov  ox.offsgt  nrdyrsg 

call  pmse  {  Drive  Not  Heady’ 

nrdytf 1 : 

call  test_ready 

jz  nrdyfcJl  {now  loop  until  drive  ready 

jmps  retry  {tnen  go  retry  witnout  decrement 

zre  t : 

and  a  1 « it 

ret  {return  witn  no  error  code 

vboot_i:  {can't  maice  it  w/  a  snort  leap 

jmp  WBOOT 

J  W  ntJjt  *t*e  Jjtspajt  jp  WW  V 

J  V  V 

i *  The  1527 1  reauires  a  read  status  command  * 
to  reset  a  drive-not-reaay  after  tne  * 

j*  urive  becomes  ready  v 


;  v  v 

;  WWqWKijtWtfiW&ijiS'XicifWSfiic&WWW&WVW&WWWW 


tes  t_reaay : 

mov  dn,  4££r  jproper  mass  it  lr  1 

test  sei_mas£,SPn 
jnz  r.rly2 

'"Ov  Id,  C4R  i^asic  for  lr  id  status  bit 

nrly2 : 

mov  ox, offset  rds_ccm 
rail  sand  com 

dr_poli: 

in  al,fdc_stat  ;get  status  word 
test  ai ,s£r 

jnz  dr_poii  iwait  for  not  command  cusy 

in  ai,fdc_rslt  »get  "special  result" 
test  al  ,4n  Jlooic  at  oit  for  tnis  irive 

ret  ireturn  status  of  ready 

J  *  V 

;*  Send_com  sends  a  command  and  narameters  * 
to  tae  1 8271 :  M  addresses  parameters.  w 
» *  Tae  DMA  controller  is  also  initialized  * 

i*  if  tnis  is  a  read  or  write  * 

’  tf  V 

;  W9*v*****‘i‘*’t‘’i‘ww9*wv*>ic*xi*****mv ****&*&& 

send_com: 

in  al,fdc_stat 

test  ai ,Sen  Jinsure  command  not  busy 
jnz  send_com  iloop  until  ready 

»see  if  we  nave  to  initialize  for  a  DMA  operation 

iov  ai,l[bxj  »set  command  byte 
cmp  al,l2n 

jne  write_mayse  »if  not  a  read  it  could  re  write 
mov  cl,40n 

jmps  init_lma  »is  a  read  command,  go  set  DMA 
write_maybe: 

cmp  ai,4Jaa 

Jne  dma_exit  jleave  DMA  alone  if  not  read  or  writp 

mov  cl,t2n  J w e  nave  write,  not  read 

init_ama: 

; we  nave  a  read  or  write  operation,  setup  DMA  controller 
;  (CL  contains  proper  direction  bit' 

mov  ai,04n 

out  dmac_mole,ai  ienabie  dmac 
mov  ai,20 

out  dmac_ccnt,al  Jsend  first  oyte  to  control  port 
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I 


mov 

out 

al ,  ci 

dmac_ccnt ,ai 

{load 

direction  register 

TO  V 

out 

ax , ima  _adr 
lmac_alr  ,a  1 

{ s  end 

low  oyte  of 

D^A 

mov 

out 

al ,  an 

dmac_adr ,a 1 

♦  send 

nign  oyte 

mov 

out 

ax,dma_see 
flc_segment ,ai 

{send 

low  oyte  of 

segmen t 

mov 

out 

al ,  an 

fic  segment ,al 

{  men 

nien  seement 

address 

ma  exit: 


mov  ci ,  [BXJ 
i  no  i IT. 
mov  ai ,  [3X  J 
or  al,sei_masic 
out  fdc_com,al 
parm_loop: 

dec  ci 


{get  count 
{get  command 

{merge  command  and  drive  cone 
•  send  command  byte 


Jz  exec_exit 
Inc  i'X 
parm_poll : 

in  al,t*dc  stat 
test  al.zen 
jnz  parm_poil 
mov  al , [EX] 
out  fic_parm,ai 
Jmps  parm_loop 


;no  (more)  parameters,  return 
{point  to  (next)  parameter 


{test  "parameter  register  full"  tit 
{idle  until  parm  reg  rot  full 

{send  next  parameter 

{go  see  if  tnere  are  more  parameters 


j  >s»  « 

;v  Data  Areas  v 

;  v  v 

data_offset  equ  offset  $ 

dse? 

org  lata_offset  {contiguous  witfl  code  segment 


IF 

ioader_oios 

t  — 

•  1 
t  1 

signon 

do 

cr,if ,cr,if 

•  i 
t  \ 

• 

db 

'CF/!“!-fc6  Version  2.2',cr,li' ,U 

\ 

1 

» 

ENDIF 

{ loader_oio s 

IF 

not  ioader_0ios 

•  i 

♦  i 

signon 

d  o 

1 

t 

cr , if , cr*  if 

yz 


♦as . 


do  '  System  Ceneratsc  -  11  Jan  £i',cr,if,<‘ 


SNDIF  .not  loader  bios 


cad_nom 

d  c 

cr. if, 'Home  Error',  cr.if  ,i 

int_trp 

db 

cr , if Interrupt  Trap  Halt'.cr, 

errt  cl 

dw 

er'c  , erl  ,er2 ,  er3 

dw 

er4,er5,er6,er? 

dw 

e  r9 , ery ,erA , er3 

dw 

e  rC , erD ,erE , erF 

er0 

d  b 

cr, if, 'Null  Error  V  V  ' ,  Z 

erl 

equ 

er0 

er2 

equ 

er0 

er3 

equ 

er0 

er4 

db 

cr ,  If , 'CIock  Error  :',0 

erb 

db 

cr,  if, 'late  D.^a  :',Z 

er5 

d  b 

cr.if, 'ID  CRC  Error  :',0 

er7 

db 

cr.if, 'Data  CRC  Error  :',0 

erfc 

db 

cr.if, 'Drive  Not  Ready  :',0 

ery 

db 

cr.if, 'Write  Protect  :',0 

er.A 

do 

cr.lf.'Tre  ZZ  Not  Found  : ' , 0 

er3 

db 

cr.if, 'Write  Fault  :',0 

erC 

db 

cr ,  if  , 'Sector  Not  Found 

erC 

eau 

ere 

erfi 

equ 

ere 

erF 

eau 

ere 

nrlymse 

equ 

er“ 

rtry_cnt 

-  db 

Z  Jdisi  error  retry  counter 

1  as  t~com 

dw 

Z  .address  of  last  command  striae- 

dma_adr 

dw 

Z  Jama  offset  stored  nere 

dma^seg 

dw 

Z  Jama  segment  stored  nere 

sel jrast 

db 

40 n  J select  mass,  40 n  or  Sen 

;  Various  command  strings  for  i327i 

1  o_com  10  3  ;  ien*t!i 

rl^wr  db  Z  Jread/wrlte  function  code 

tri  db  0  ?trac£  * 

sect  db  0  Jsector  » 

nom_com  do  2,29n,0  .'none  drive  command 

rds_com  db  l,2cn  .'read  status  command 

»  System  Memory  Seement  Table 

segtable  do  2  i2  segments 

dw  tpa_se»  ilst  see  starts  after  3ICS 
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dw  tp<a_len 
dw  fe3 wJs. 

l «  2000a 


{and  extends  to  0b00i 
{second  is  20000  - 
53FFFF  (l2fcic' 

include  singles. lie  {read  in  aisjc  definition 

1 0  c  _s  t  k  tv  32  {local  stacic  for  initialization 
sttcoase  equ  offset  5 

lastoff  equ  offset  $ 

tDa_se?  eau  ( last  of  f  ■*-84tS0r.-*-l5 )  /  lb 

tpa“ien  equ  0B0 0 n  -  tpa_se? 

an  0  {fill  last  address  for 

;  *9 ****** ******  ****************  ***** 

;  *  v 

;*  Durrmy  Data  Section  * 

j  * 

•  SSumtJ*  *c  W9  W>*9gl  Jjt  :?  sjt  *£  5*  i*  v  V  W  W 

dseg  0  Jansoiute  low  memory 

or?  0  {(interrupt  vectors) 

int0_offset  rw  1 

int2“segment  rw  1 

;  pad  to  system  call  vector 

rw  2*( bdos_int-l ) 

cdos_offset  rw  1 

t)ios  segment  rw  1 

£ND 
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